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RENSEIGNEMENTS 
SUR LE MICROPROCESSEUR 780 


Un ordinateur est composé de différents éléments dont le point 
central est le microprocesseur. Dans le cas de l’Amstrad, il s’agit du 
Z80. 

Le microprocesseur est capable d'effectuer certaines opérations 
logiques ou arithmétiques ainsi que d'échanger des informations avec 
les autres éléments. Nous parlons actuellement des possibilités don- 
nées aux circuits électroniques qui le composent et non des possibi- 
lités que l’on peut lui donner par des logiciels. 

Nous n'entrerons pas dans le détail du fonctionnement du Z80, 
nous indiquerons seulement le rôle de quelques-uns de ses 
composants. 


Dans un ordinateur, il existe les types de mémoires suivants : 


e Les ROM (Read Only Memory). Ces mémoires sont accessibles uni- 
quement en lecture ; il n’est pas possible d'y écrire, sauf au moment 
de leur réalisation. Ce sont les mémoires ‘’mortes’’ de l'ordinateur. 


e Les RAM, Random Access Memory. Ces mémoires sont accessi- 
bles en lecture et en écriture. Ce sont les mémoires ‘‘vives’’ de 
l'ordinateur. 


e Les mémoires de travail du microprocesseur sont appelées registres, 
leur particularité par rapport aux ROM et aux RAM est d’avoir un 
temps d'accès plus court ; certaines sont dotées d’un nom parti- 
culier lorsqu'elles ont une utilité spécifique. 


e L'ALU (Arithmetical Logical Unit), cœur du microprocesseur, doté 
de la possibilité d'effectuer des opérations arithmétiques et logiques, 
comme son nom l'indique. 


FONCTIONNEMENT DU Z80 
Examinons maintenant les registres du Z80 : 


e L'’accumulateur, noté A : ce registre est associé à l’ALU pour lui 
permettre de travailler. 


Les registres universels, qui peuvent avoir plusieurs utilisations ; 
ils ne sont pas affectés à priori à une tâche particulière. 


Les registres d'adresses, notés BC / DE /HL, qui sont des registres 
doubles : deux registres, indépendants physiquement, sont asso- 
ciés dans leur désignation pour la gestion des adresses ; le poids 
faible d’une adresse est contenu dans le premier registre, le poids 
fort dans le second. La notion de poids faible et de poids fort sera 
développée ultérieurement au paragraphe Écriture d’une adresse. 


Le compteur ordinal, noté PC, qui contient l'adresse de la prochaine 
instruction à exécuter. 


Le pointeur de pile, noté SP, qui permettra de gérer les piles. 
Le registre d’index, noté IX, qui permettra de faire de l’adressage 


indexé. 


De plus, pour accélérer certains travaux, le Z80 possède deux jeux 
indépendants de certains des registres énumérés ci-dessus. 
Revenons aux registres d'adresses. Nous avons dit que ces registres 
étaient doubles ; cette particularité permet de gérer les adresses plus 
rapidement. Pour expliquer leur fonctionnement, commençons tout 
d'abord par quelques rappels sur les systèmes de numération. 


NUMÉRATION DÉCIMALE, BINAIRE ET HEXADÉCIMALE 


Lorsque l’on écrit le nombre 627 en numération décimale, la tra- 
duction arithmétique est : 


6*x10°+2+10'+7x10° 
10 est la base de la numération que l’on élève à la puissance 0, 
puis 1, puis 2, etc. (rappelons que 10° est égal à 1). 
Le nombre 1011 en numération décimale se traduit par : 
1x10°+0+10°+1x10'+1+2°=1011 


En numération binaire, il se traduit par : 


142*+0x2?+142!+1#20 


soit la valeur 14 en numération décimale. 
En numération hexadécimale, il se traduit par 


1416°+0+16/+1+16!+1+16° 


soit la valeur 1554 en numération décimale. 


Un octet est un mot de huit bits ; chaque bit peut prendre la valeur 
0 où 1 ; dans un octet, les nombres sont représentés en numération 
binaire. Le plus petit est 00000000 ; le plus grand est 11111111, ce 
qui nous donne en valeur décimale O0 pour le plus petit et 255 pour 
le plus grand. 


142741424142 414244 14x2/4+14x224+142 4714202255 


La numération hexadécimale est souvent utilisée lorsque l’on tra- 
vaille directement sur le contenu d’un octet, car elle permet d'écrire 
tous les nombres possibles qu’il peut contenir avec seulement deux 
chiffres ou lettres. 

La succession des chiffres en numération décimale est : 


0,1,2,3,4,5,6,7,8,9 
La succession des chiffres en numération hexadécimale est : 
0,1,2,3,4,5,6,7,8,9,A,B,C,D.E,F 
À a la valeur 10, B la valeur 11, C la valeur 12, D la valeur 13, E 
la valeur 14, F la valeur 15 en numération décimale. 
Le nombre 255 en numération décimale s'écrit FF en numération 
hexadécimale ; c’est le plus grand nombre que l’on puisse écrire dans 


un octet. 


F416!+F+160=15+16+15-255 
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ÉCRITURE D'UNE ADRESSE 


Le microprocesseur Z80 est capable de travailler avec des adresses 
allant de 0 à 65535. Nous venons de voir ci-dessus que, dans un octet, 
le nombre le plus grand que l’on pouvait représenter était 255 ; par 
conséquent, il sera nécessaire d'utiliser deux octets pour pouvoir 
représenter des nombres jusqu’à 65535. Ces deux octets sont utili- 
sés de la manière suivante : l'adresse sera égale à la valeur contenue 
dans le premier octet augmentée de la valeur contenue dans le second 
octet multipliée par 256. 


EXEMPLE 


L'adresse 28712 sera représentée par les deux octets suivants : 
00101000 01110000 


L'octet 00101000 vaut 40 en décimal, l’octet 01110000 vaut 112 
en décimal ; on a bien en décimal 40+256*112=28712 

Le premier octet est dit contenir le poids faible, le deuxième octet 
le poids fort. 

Ilest d'usage d'appeler l’ensemble des mémoires qui ont la même 
valeur dans l’octet de poids fort, une page ; les mémoires dont 
l'adresse va de 28160 à 28415 ont comme poids fort 112, ce sont 
les mémoires de la page 112. 


TT = 


LES MÉMOIRES DE L'AMSTRAD 


Dans sa version de base, l’Amstrad possède une mémoire RAM de 
65 536 octets (soit 64K ; 1K=1 024 octets), mais toute cette mémoire 
n’est pas disponible pour l'utilisateur. Un certain nombre de mémoires 
est réservé pour le fonctionnement du microprocesseur, de l’inter- 
préteur BASIC et les affichages à l'écran. Nous allons donner la carte 
des mémoires ainsi que quelques adresses remarquables utilisées par 
le microprocesseur ou l’interpréteur. 


CARTOGRAPHIE DES MÉMOIRES DE L'AMSTRAD 
Les adresses des RAM vont de 0 à 65535. 


e Les mémoires d'adresses 0 à 366 (page 0 et début page 1) sont réser- 
vées pour le fonctionnement de l'AMSDOS et du CP/M. 


° Les mémoires d'adresses 367 à 42619 sont libres pour le programme 
BASIC et ses variables associées. 


e Les mémoires d'adresses 42620 à 49151 sont réservées au fonc- 
tionnement du microprocesseur et de l’interpréteur. 


e Les mémoires d'adresses 49152 à 65535 sont réservées pour l'affi- 
chage écran. 


La cartographie de la mémoire se schématise de la manière 
suivante : 


ADRESSE UTILISATION APPELLATION 
65535 


49152 


Réservé interpréteur 
et microprocesseur 


42620 HIMEM 


Mémoires disponibles 


pour le BASIC 


367 TXTTAB 


Réservé AMSDOS 
et CP/M 


L'adresse de début de la zone libre pour le programme BASIC 
s'appelle TXTTAB ; cette adresse est stockée dans les mémoires réser- 
vées à l’interpréteur, soit 44673 (poids faible) et 44674 (poids fort). 

L'adresse de la fin de zone libre pour le programme BASIC s'appelle 
le HIMEM ; cette adresse est stockée dans les mémoires réservées 
à l’interpréteur, soit 45199 (poids faible) et 45200 (poids fort). 


ADRESSES REMARQUABLES DE LA ZONE MÉMOIRE 
RESERVEE A L'INTERPRETEUR 


Les adresses remarquables que nous allons citer sont toutes implan- 
tées dans la zone réservée à l’interpréteur, nous les donnerons dans 
l’ordre poids faible, poids fort. 


e Nous venons de voir que l'adresse de début de la zone disponible 
pour le programme BASIC s'appelle TXTTAB ; cette adresse est 
stockée dans les mémoires 44673 et 44674. L'adresse de la mémoire 
la plus haute (l'adresse la plus forte disponible) s'appelle le HIMEM ; 
elle est stockée dans les mémoires d'adresses 45199 et 45200. Elle 
peut être différente de la plus haute mémoire existante, caracté- 
ristique que nous utiliserons ultérieurement. 


e L'adresse de fin de programme BASIC s'appelle le LOMEM ; elle 
est stockée dans les mémoires d'adresses 45675 et 45676. 


e Les variables numériques non indicées et l’adresse de stockage des 
variables alphanumériques non indicées sont stockées dans une 
zone de mémoire dont l'adresse de début est le LOMEM et l'adresse 
de fin le ARYTAB. ARYTAB est stocké dans les mémoires d'adresses 
44679 et 44680. 


e Les variables numériques indicées et les adresses de stockage des 
variables alphanumériques indicées sont stockées dans une zone 
dont l'adresse de début est ARYTAB et l'adresse de fin STREND. 
STREND est stocké dans les mémoires d'adresses 44681 et 44682. 


e_Les variables alphanumériques, indicées ou non, sont stockées dans 
une zone dont l'adresse de début est HIMEM et dont l'adresse de 
fin est FRETOP. FRETOP est stocké dans les mémoires d'adresses 
45197 et 45198. 1l est à remarquer que pour cette zone l'adresse 
de début est supérieure à l'adresse de fin, à l'inverse des autres 
zones. Nous en donnerons l'explication au Chapitre 3. 
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e La zone allant de FRETOP à STREND est libre. 


Il faut bien retenir de ce schéma que : 


1. Le LOMEM s'élève au fur et à mesure que le programme s’allonge. 


2. La zone des variables qui s'étend de LOMEM à STREND est 
d'autant plus importante que le nombre ou la dimension des varia- 
bles sont importants. 


3. La zone supérieure qui va de HIMEM à FRETOP contient toutes 
les variables alphanumériques du programme (par variables, il faut 
entendre tous les messages introduits par l’utilisateur, par exem- 
ple des INPUT R$ ou des concaténations telles que A$-B$+C$. 


4. Dès que la zone libre deviendra nulle, le programme n'aura plus 
de place pour stocker les variables, ce qui déclenchera le mes- 
sage d'erreur ‘’'OUT OF MEMORY’ et le programme sera arrêté 
dans son exécution. Il est donc nécessaire de limiter l’encombre- 
ment d’un programme et le nombre de variables utilisées pour 
travailler correctement dans l’espace mémoire d’un micro- 
ordinateur. 


2462 


Pour la zone utilisable par le BASIC, nous avons la carte suivante : 


Utilisation Nom Adresses 
HIMEM 45199 45200 


Zone de stockage des 
variables alphanumériques 


indicées ou non 
FRETOP 45197 45198 


STREND 44681 44682 


Zone de stockage des 
variables numériques indicées 
Adresses de stockage des variables 
alphanumériques indicées 
ARYTAB 44679 44680 


Zone de stockage 
des variables numériques 


Adresses de stockage des variables 


alphanumériques non indicées 
LOMEM 44675 44676 


Programme BASIC 
TXTTAB 44673 44674 


Nous utiliserons certaines de ces adresses dans les chapitres suivants. 
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CODAGE DES INFORMATIONS 
D'UN PROGRAMME BASIC 


La première étape nécessaire pour pouvoir explorer un programme 
est de connaître la manière dont il est stocké dans les mémoires, ce 
que nous allons examiner ; puis nous étudierons l'implantation et le 
codage des variables utilisées par le programme. 


CODAGE DES ORDRES 


Nous avons vu au Chapitre 2 que les mémoires d'adresses 44673 
et 44674 contenaient l'adresse du TXTTAB, c’est-à-dire l’adresse à 
partir de laquelle les instructions du BASIC vont être enregistrées. Nous 
allons commencer par interroger ces mémoires pour connaître le 
TXTTAB de l’Amstrad. En ordre à exécution immédiate, tapons : 


CLS < Return > 
PRINT PEEK(44673)+256+*PEEK(44674) < Return > 


Nous obtenons le résultat suivant à l'écran : 
367 


Maintenant que nous savons où sont implantées les instructions 
BASIC, nous allons écrire un programme qui va s’auto-explorer ; nous 
allons séparer ce programme en deux parties : celle que nous explo- 
rerons au début et celle qui réalisera l'exploration. 

Ce programme étant du BASIC classique, nous ne signalons plus 
les RETURN en fin de ligne. 


NEW 


L'ordre NEW permet de libérer la mémoire de l'ordinateur pour 
taper un nouveau programme sans le mélanger avec un programme 
introduit précédemment. Nous verrons ultérieurement l'effet exact 
de l’ordre NEW sur les mémoires. 


18 REM CH3-P1 

2@ PRINT "BONJOUR" 

30 ÀA2=2 : B%=145 : C2=758 :D/=-456 

48 E=2 : EA=4S : ASR=78.5 :ASDF=-456.2 

54 X=&RIAEF : Y=&X10188610 

66 A$="HELLO" 

7@ À=PEEK(44675)+256*xPEEK(44676) 

80 FOR J=367 TO À STEP 38:CLS 

70 FOR I1=J TO J+28 STEP 2 

168 PRINT I;PEEK(1),1+1;PEEK(I+1):NEXT 1 

116 PRINT:INPUT R$: IF LEFT#$(R$,1)<>"C" THEN 148 
128 FOR I1=J TO J+28 STEP 2:PRINT H8,1;PEEK(1),1+13;PEEKÇI+1):NEXT 1 
136 PRINT #8,:PRINT#H8, 

149 NEXT J 

158 END 
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Le principe de ce programme est d'explorer les mémoires où sont 
implantées les instructions BASIC. On affiche les codes ASCII trou- 
vés à l'écran par série de 30, puis une nouvelle série de 30 et ainsi 
de suite. 


20/60 


Différents types de variables, pour examiner la manière dont elles 
sont représentées en mémoire. 


90/100 et 120 


L'affichage, par série de 30, est réalisé par les deux boucles 
FOR/NEXT en I. 


80/140 


La boucle FOR/NEXT en ] permet l'exploration complète du pro- 
gramme, puisqu'elle commence à partir du TXTTAB, soit 367, jusqu'au 
LOMEM (fin du programme), soit PEEK(44675) + 256+PEEK(44676). 


100 


Cette instruction affiche le numéro de la mémoire explorée et le 
code ASCII trouvé (deux fois par ligne). 


110 


Cette instruction arrête l'exécution jusqu’à ce que l’on frappe la 
touche RETURN ; si l’on frappe € suivi de RETURN, on déclenche 
l'impression sur imprimante (instruction valable pour les lecteurs qui 
en possèdent une). L'ordre INPUT est précédé de PRINT, qui met 
le curseur à la ligne suivante. 


Le BASIC est implanté à partir du TXTTAB et nous allons trouver 
successivement : la longueur de l'instruction (nombre d'octets occu- 
pés par l'instruction en mémoire), l'étiquette de l'instruction, la suc- 
cession d'ordres BASIC de cette étiquette, puis l'instruction suivante 
et ainsi de suite. 

Les ordres BASIC tels que PRINT, CLS, PEEK... ne sont pas stockés 
sous leur forme littérale, ce qui consommerait trop d’octets (un octet 
par lettre soit cinq pour l’ordre PRINT) ; ils sont représentés par un 
ou deux codes ASCII supérieurs à 127, ce qui facilite le travail de 


= "91 = 


l'interpréteur pour la traduction : en effet, les octets des tokens com- 
mencent alors par un bit égal à 1. 

Exécutons maintenant ce programme par RUN. On voit apparaî- 
tre à l'écran : 


367 (] 368 13 
369 C] 378 18 
371 & 372 197 
373 32 374 67 
375 72 376 51 
377 45 378 80 
379 49 388 8 
381 1é 382 CG] 
383 29 384 8 
385 191 386 32 
387 34 388 éé 
389 79 376 78 
391 74 392 79 
393 85 374 82 
395 34 376 8 


Voici les seize écrans que vous devez obtenir (seule la partie inté- 
ressante est représentée). 


ECRAN 1 ECRAN 2 
ER DE DE DE DE HE DE DE DE HE DE DE DE DE DE DEEE DD DE DE DEN DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EE 
x * 
$ 367 ] 368 13 x *x 397 43 398 8 * 
* 369 8 378 18 x x 399 38 408 8 * 
* 317 @ 372 177 # x 401 2 402 5 * 
* 373 32 374 67 * * 403 C] 4684 193 * 
* 375 72 376 S1 * * 405 239 486 16 x 
* 377 45 378 80 * * 407 32 488 Î * 
* 379 49 388 8 * * 409 32 418 2 * 
* 381 lé 382 8 * *x 4iji 11 412 (] * 
* 383 20 384 8 * * 413 194 414 239 * 
* 385 191 386 32 * * 415 25 4ié 145 * 
* 387 34 388 éé * * 417 32 418 1 * 
* 387 79 3978 78 * * 419 32 428 2 * 
* 391 74 392 79 * *x 421 17 422 @ * 
* 393 85 394 82 * * 423 195 424 239 * 
* 395 34 396 8 * x 425 26 426 246 * 
* x * * 
RD DE DE HE DE DEEE DEEE EE EE DEEE EEE XD NEED DE DE HE HE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE NE 
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ECRAN 3 


HRHHKKERÉEEEÉEXEÉÉEÉEXÉEERXXXEXXXXX 


* * 
* 427 2 428 32 * 
* 429 1 438 2 * 
* 431 23 432 8 % 
* 433 196 434 239 * 
* 435 245 436 26 * 
* 437 288 438 Î * 
* 439 (] 448 SS * 
* 441 C] 442 58 * 
* 443 ( 444 13 * 
* 445 29 44é @ * 
* 447 197 448 239 * 
* 449 té 458 32 * 
* 451 1 452 32 * 
* 453 13 454 39 * 
* 455 6 456 69 * 
* * 


KRARHERKREHKEEEREREREKEREREREREXEXXX 


ECRAN 5 


EEE HE DE DE DE DE HE DE DE DEEE DE DE DEEE DE DE DE DE DE DE DE DE DE EE NE 


* * 
* 487 245 488 31  * 
* 489 154 490 153 * 
* 491 25 492 100 x 
* 493 137 494 8 * 
* 495 24 496 (] * 
* 497 58 498 8 * 
* 499 13 508 71  * 
* sai [] 502 216 * 
* 503 239 504 28 * 
* 505 239 586 26 * 
* 507 32 508 1 * 
* 509 32 510 13 * 
* 511 86 512 (] * 
* 513 217 514 239 * 
* 515 27 S16 162 * 
* * 


RONDE DEEE DE DEEE DE DE EEE EE DE EE EE EEE 


ECRAN 7 
JE DE DE DE DE DE DE DE DEEE EE EE EE NE NE 
* * 
* 547 48 548 31 * 
* 549 8 558 8 * 
* 551 131 592 4é * 
* 553 144 554 41 * 
* 5955 244 556 26 * 
* 557 8 558 1 * 
* 5959 246 568 255 * 
* 9561 18 Sé2 48 * 
* 563 31 564 6 * 
* 565 8 Séé 132 * 
* 567 46 568 144 * 
* 569 41 578 @ * 
* 571 29 572 8 * 
* 573 80 574 8 * 
* 575 158 576 32 * 
* * 


ERREUR E EEEEE X X X 


ECRAN 4 
KHÉERKEREREREREHIELÉEIEREIÉHIXRREÉXXE 
* # 
* 457 193 458 239 * 
* 459 25 468 45 * 
* 461 32 462 il * 
* 463 32 464 13 * 
* 465 59 466 (] * 
* 467 65 468 83 * 
* 469 216 478 239 * 
* 471 31 472 (] * 
* 473 8 474 (] * 
* 475 29 476 135 * 
* 477 32 478 Î * 
* 479 13 480 62 * 
* 481 (] 482 65 * 
* 483 83 484 68 * 
* 485 198 486 239 * 
* # 
HKRHÉHEHRERMMHMHM EM HNHENEUEREXXE 


ECRAN 6 


HXHKKEEEEHERERERÉÉRÉRERÉRÉÉEHXÉÉX 


* * 
* 517 @ 518 8 # 
* 519 17 526 8 * 
* 521 68 522 8 % 
* 523 3 524 89 * 
* 525 ] 526 193 * 
* 527 239 528 34 * 
* 529 72 530 67 * 
* 531 76 532 76 * 
* 9533 79 534 34 * 
* 535 8 536 35 * 
* 537 8 538 70 * 
* 537 @ 548 13 * 
* 541 76 542 C] * 
* 543 193 544 239 * 
* 545 255 546 18 * 
* x 
JE EE DE DE DE DE DE DEEE DE DE DEEE EEE EEE EEE NE 


ECRAN 8 
KHRKEREEEREEEREEERELERERXEERXXIX 
* * 
* 577 13 578 185 * 
* 579 8 s8a 282 * 
* 581 239 582 26 +* 
* 583 111 584 Î * 
* 585 32 586 236 * 
* 587 32 588 13 * 
* 587 76 598 8 * 
* 591 193 592 32 * 
* 593 238 594 32 * 
* 595 25 576 38 * 
* 5977 1 598 138 * 
* 577 8 é88 30 * 
* éûi 8 682 70 * 
* 663 (J 684 158 * 
* 6085 32 é8é 13 * 
* * 


KKKKKKKEKKEEKEEKEEEEEREREREÉEEE 
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ECRAN 9 ECRAN 14 


EEE EE ES SSL 


* * * * 
* 607 114 688 8 * *x 637 114 638 8 * 
* 649 281 616 239 *x *x 639 281 648 57 * 
* 611 13 612 105 *x x 641 255 642 18 + 
* 613 & é14 262 * *x 4643 48 644 13 * 
* 615 32 é1é 236 * *x 645 114 646 8 * 
* 617 32 618 13 * *x 647 281 648 41  * 
* 617 185 628 8 * * 649 44 658 13 * 
* 621 262 622 244 *x x 651 114 652 8 * 
* 623 25 624 28 * *x 653 281 654 244 * 
* 625 32 626 230 * *x 655 15 656 57 * 
* 627 32 628 16 * * 657 255 658 18 * 
* 629 (] 638 45 x * 659 48 ééa 13 * 
#* 631 C] 632 100 x »* 661 114 662 @ * 
* 633 C] 634 191 x x 663 281 é64 244 * 
* 635 32 636 13 x »* 665 15 é66 41  * 
* * * * 
DD DE DE HE DE DE DE DE DE HE DE DE DE DE HE DE DE DE DE DE DE DE DE DE HE DE DEEE DE DEEE DE DE DEEE DE DE DEEE DE DEEE DE DE DE DEEE EN 


ECRAN 11 ECRAN 12 
EEE DE DE DE DE DE DE NE DE DEEE EE DEEE DE DE EE DE DE DE DE DE DEEE DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 
* x * * 
* 667 1 é68 176 x x 697 210 678 44 * 
* 667 32 678 13 * *x 699 15 768 41  * 
$ 671 114 672 (] * * 701 242 702 34 * 
* 673 281 674 @ * *x 703 67 784 34 * 
* 675 48 676 8 * *x 705 32 706 235 * 
* 677 116 678 8 * *x 707 32 708 27 * 
* 679 191 680 1 * *x 709 35 710 3 * 
* 681 163 682 32 * *x 711 32 712 32 * 
* 683 3 684 123 * * 713 32 714 @ * 
* 685 8 686 210 x x 715 74 71é @ * 
* 687 1 688 32 * * 717 120 718 8 * 
* 687 iéi 698 32 * * 719 158 7208 32 * 
* 671 255 692 117 *x x 721 13 722 114 * 
* 6973 48 694 3 * x 723 (] 724 291 * 
* 695 123 696 ] * *x 725 239 726 13 * 
* * * * 


DEEE EE DE DEEE EE DEEE DEEE DEEE EE DE DEEE DE NE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 


ECRAN 13 ECRAN 14 
DEN NENMEEENN  6  D D E E E X  E  E  X E E E E DE 6 E DE DE E X  DÉ DÉ  E 
* * + 2 
* 727 185 728 8 *x x 757 er] 758 13 + 
* 729 202 734 32 x * 759 114 768 CE 
x 731 236 732 32 x * 761 201 762 a1 +» 
* 733 13 734 195 x x 763 44 764 13 * 
* 735 0 736 202 *x * 765 114 766 CE 
* 737 244 738 25 * *x 767 281 768 244 x 
* 739 28 748 32 x * 769 15 770 59 * 
* 741 230 742 32 * * 771 255 772 18 * 
* 743 16 744 1 x x 773 49 774 13 * 
* 745 191 746 32 * * 775 114 776 CS 
* 747 35 748 22 x * 777 201 778 244 x 
* 749 44 759 13 * x 779 15 788 41 + 
* 751 114 752 8 x »* 781 1 782 176 * 
* 753 201 254 59 * * 783 32 784 13 + 
* 755 255 756 18 * * 785 114 786 CR 
+ x * + 
26 ED EME DEEE DE EEE EEE EX NE 6 DE EE XXE DE XXE DE DE EE DE EE DE DE DE DE DE DE JE JE MEME DE DEEE EEE Xe 
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ECRAN 15 ECRAN Îié 


EEE DE DE DE DE DE DD DEEE DE DE XE DE DE DE DE EX DE DE DE EE DE DE DE DEEE DE DE DE DEEE DE DEEE DEEE DE DE DE EEE EEE 


* * x 

* 787 281 788 8 * * 817 150 818 (] * 
* 789 15 798 (] * * 819 191 828 32 * 
* 791 130 792 (J] * x 821 13 822 8 * 
* 793 191 794 32 * * 823 & 824 193 * 
* 795 35 796 22 * * 825 (] 826 18 * 
* 797 44 798 1 * *x 827 8 828 168 * 
* 799 191 808 35 * * 829 8 830 160 * 
* 801 22 882 44 x * 831 32 832 29 * 
* 803 8 864 11 x x 833 67 834 3 x 
* 885 8 886 148 x *x 835 8 836 é * 
* 807 (] 808 176 * * 837 8 838 170 * 
* 807 32 818 13 * *x 839 8 848 152 * 
* 811 105 812 @ * *x 841 8 842 C] * 
* 813 202 814 8 * *x 843 8 844 8 % 
* 815 11 81é (] * x 845 (] 846 193 * 
* * x * 
REED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEN EE 


Examinons la signification de ces codes ASCII : 


Mémoire Code Signification 

367 0 Début du programme BASIC. 

368 13 13+256*0=13 ; longueur de l'instruction 

369 0 BASIC qui suit. 

370 10 10+256+0=10 ; étiquette de 

371 0 l'instruction BASIC considérée. 

372 197 Le code ASCII 197 correspond à l’ordre 
BASIC REM : c'est un token. 

373 32 Le code ASCII 32 correspond à un espace. 

374 67 Code ASCII de C. 

375 72 Code ASCII de H. 

376 51 Code ASCII de 3. 

377 45 Code ASCII de —. 

378 80 Code ASCII de P. 

379 49 Code ASCII de 1. 

380 0 Fin de l'instruction BASIC n° 10 ; début de 
la suivante. 

381 16 16+256*0=16 ; longueur de l'instruction 

382 0 BASIC qui suit. 

383 20 20+256*0=20 ; étiquette de 

384 0 l'instruction BASIC considérée. 


END 


385 191 Le code ASCII 191 correspond à l’ordre 
BASIC PRINT : c’est un token. 


386 32 Code ASCII de espace. 

387 34 Code ASCII de ”’. 

388 66 Code ASCII de B. 

389 79 Code ASCII de O. 

390 78 Code ASCII de N. 

391 74 Code ASCII de ]. 

392 79 Code ASCII de O. 

393 85 Code ASCII de U. 

394 82 Code ASCII de R. 

395 34 Code ASCII de ‘”’. 

396 0 Fin de l'instruction BASIC n° 20 ; début de 
la suivante. 


Nous venons donc de constater les faits suivants : 


Un programme BASIC commence à l'adresse 367. 
Un programme BASIC est précédé d'un 0. 


Toutes les instructions BASIC sont séparées les unes des autres par 
un 0 (nous verrons par la suite que le O est utilisé aussi pour d’autres 
besoins). 


Une instruction BASIC commence par la longueur occupée par 
cette instruction en mémoire ; cette longueur est stockée dans deux 
mémoires. 


L'ordre REM est stocké sous forme d’un seul code ASCII, de même 
l’ordre PRINT ainsi que les autres ordres BASIC ; ce code ASCII 
a une valeur supérieure à 127, il est habituellement appelé token. 
La liste des tokens de l’Amstrad est donnée en Annexe C. 


Nous allons continuer l'interprétation des instructions de notre pro- 


gramme en regroupant les codes ASCII entre deux O de fin 
d'instruction. 


A partir de la mémoire 397, nous trouvons les codes ASCII corres- 


pondant à l'instruction BASIC : 


30 A%=2 : B%=-145 : Ch-758 : D--456 


-— 26 — 


193 


43+256*0-43 ; longueur de l'instruction. 
30+256*0= 30 ; étiquette de l'instruction. 
Indicateur de variable entière. 


La valeur de cette variable est stockée 
à partir de l’adresse égale à celle du 
LOMEM + 5 +0*x256=LOMEM +5. 


193 est le code ASCII de A (soit 65) augmenté de 128 ; 
c'est la variable A% et A est le dernier caractère de cette 
variable. 


Token de =. 
Valeur numérique codée, 16 correspond à la valeur 3. 
Code ASCII de espace. 


Séparation de deux ordres à l’intérieur d’une instruction ; 
c'est la traduction de : de séparation. 


Code ASCII de espace. 
Variable entière dont la valeur est stockée à LOMEM +11. 


Nom de la variable B% 
(code ASCII de B+128). 


Token de =. 

Constante codée sur un octet. 

Valeur de la constante : 145. 

Espace : espace. 

Variable entière dont la valeur est stockée à LOMEM +17. 
Code ASCII de C+128, variable C%. 

Token de =. 

Constante codée sur deux octets. 


Valeur de cette constante, 
soit 246+2*256-758. 


Espace : 

Variable entière dont la valeur est stockée à LOMEM + 23. 
Code ASCII de D+128, variable D%. 

Token de =. 

Token de —. 


Constante codée sur deux octets, soit 
200+1+256-456. 


97: 


Le codage des variables et des constantes mérite quelques expli- 
cations complémentaires avant de continuer. 


Codage des variables 


On trouve tout d’abord un octet pour indiquer le type de varia- 
ble ; cet octet est égal à 2 pour une variable entière, à 3 pour une 
variable albhanumérique, à 13 pour une variable en virgule flottante. 

Puis les deux octets suivants contiennent l’adresse, dans la zone 
LOMEM/ARYTAB ou ARYTAB/STREND), de la valeur de cette varia- 
ble. Avant de faire RUN, ces deux octets sont bien sûr à O, car l'inter- 
préteur ne sait pas encore où seront stockées les valeurs ; au fur et 
à mesure que l’interpréteur rencontre les variables pendant l’exécu- 
tion du programme, il attribue un emplacement pour la valeur de 
la variable dans la zone LOMEM/ARYTAB où ARYTAB/STREND et il 
note l'adresse dans ces deux octets. Cette particularité du BASIC de 
l'Amstrad permet de diminuer les temps de calcul. 

Enfin on trouve les codes ASCII représentant les caractères de la 
variable ; la longueur de chaîne n'étant pas imposée, on augmente 
le code ASCII du dernier caractère de 128 pour indiquer la fin de 
la chaîne. 


Codage des constantes 


La procédure de codage des variables augmente la rapidité de cal- 
cul, mais elle augmente aussi la taille du programme en mémoire. 
Pour les constantes, l’Amstrad utilise aussi une technique qui aug- 
mente la rapidité de calcul mais qui, cette fois, diminue l’encombre- 
ment mémoire. 

Si la constante ne comporte qu’un chiffre, celui-ci est codé direc- 
tement avec la convention suivante : 


Octet = 14 si la constante est égale à 0 
Octet = 15 si la constante est égale à 1 
Octet = 16 si la constante est égale à 2 
Octet = 17 si la constante est égale à 3 
Octet = 18 si la constante est égale à 4 
Octet = 19 si la constante est égale à 5 
Octet = 20 si la constante est égale à 6 
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Octet 
Octet 
Octet 


21 si la constante est égale à 7 
22 si la constante est égale à 8 
23 si la constante est égale à 9 


Il 


Si la constante est un entier inférieur à 255, on code cette valeur 
directement dans un octet et on le fait précéder d’un octet égal à 25. 

Si la constante est un entier supérieur à 255 et inférieur à 65535, 
on code cette valeur sur deux octets suivant la technique habituelle : 
premier octet augmenté de 256 fois le second, et on les fait précéder 
par un octet égal à 26. 

Si la constante est un nombre en hexadécimal, elle commence par 
& et sa valeur est inférieure à 65535 : on la code donc comme ci- 
dessus et on fait précéder les deux octets par un octet égal à 28. 

Si la constante est un nombre en binaire, elle commence par &X 
et sa valeur est inférieure à 65535 ; on la code comme ci-dessus et 
on fait précéder les deux octets par un octet égal à 27. 

Si la constante représente une adresse (par exemple dans un 
GOTO), elle est inférieure à 65535 ; on peut donc la coder sur deux 
octets que l’on fait précéder de 30, et cela avant l'exécution du pro- 
gramme. Mais lorsque l’on exécute le programme, l'interpréteur 
trouve au fur et à mesure de ses besoins les adresses réelles de bran- 
chement ; il remplace alors la valeur des étiquettes par l'adresse abso- 
lue, qui se code toujours sur deux octets qu'il fait précéder par un 
octet égal à 29, pour reconnaître une étiquette d’une adresse relative. 

Enfin, si l’on a une constante ne répondant à aucune des classes 
précédentes, on met un premier octet égal à 31 suivi par cinq octets 
qui définissent sa valeur, en utilisant la méthode décrite à la section 
suivante (codage de la valeur des variables en virgule flottante). 

Les valeurs négatives s’obtiennent par le token de ‘’—’’ en tête de 
la constante. 

Nous pouvons maintenant reprendre notre exploration. 


A partir de la mémoire 440, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


40 E=-2 : EA=-45 : ASR-78.5 : ASDF-456.2 


55-0 55+256+0=55 ; longueur de l'instruction. 
40-0 40+256*0=40 ; étiquette de l'instruction. 
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13-29-0-197 


239 

16 
32-1-32 
13-39-0 


69-193 
239 
25-45 
32-1-32 
13-50-0 


65-83-210 
239 

31 
0-0-0-29-135 
32-1 

13-62-0 


65-83-68-198 


239 

245 

31 
154-153-25 
100-137 


197-128 +69 ; 69 est le code ASCII de E : variable 
E en virgule flottante stockée en LOMEM +29. 


Token de =. 
Constante égale à 2. 
Séparation espace : espace. 


Variable en virgule flottante stockée en 
LOMEM + 39. 


Codes ASCII de E et A+128 : variable EA. 
Token de =. 

Constante sur un octet, valeur 45. 
Séparation espace : espace. 


Variable en virgule flottante stockée 
en LOMEM +50. 


Code ASCII de À, S et R+128 ; variable ASR. 
Token de =. 

Constante en virgule flottante. 

Valeur (1+29/128)+2"(135 —-129)=78.5. 
Séparation espace :. 


Variable en virgule flottante stockée 
en LOMEM +62. 


Codes ASCII de A, S, Det F+128; 
variable ASDF. 


Token de =. 

Token de -. 

Variable en virgule flottante. 

(1+100/128 +25/32768 +153/8388608 + 


154/2147483648)+2°(137 — 129) — 
456.19999. 


À partir de la mémoire 495, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


50 X=&1AEF : Y-&X10100010 


24-0 24+256+0=24 ; longueur de l'instruction. 
50-0 50+256+0= 50 ; étiquette de l'instruction. 
13-71-0 Variable en virgule flottante stockée en LOMEM +71. 


S 40 = 


216 Code ASCII de X, +128, variable X. 
239 Token de =. 
28-239-26 Constante en hexadécimal, codée sur 2 octets ; valeur 


239+26*256-6895 où &IAEF. 


32-1-32 Séparation espace : espace. 
13-80-0 Variable en virgule flottante stockée en LOMEM + 80. 
217 Code ASCII de Y +128 ; variable Y. 
239 Token de =. 
27-162-0 Constante en binaire, codée sur 2 octets ; valeur 162 


ou &X10100010. 


A partir de la mémoire 519, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


60 A$="HELLO" 


17-0 
60-0 
3-89-0 
193 
239 
34 
72 
69 
76 
76 
79 
34 


17+256*x0-17 ; longueur de l'instruction. 
60+256+*0-60 ; étiquette de l'instruction. 
Variable alphanumérique stockée en LOMEM +89. 
Code ASCII de ‘’A’’+128, variable A. 
Token de =. 

Code ASCII de ”’. 

Code ASCII de H. 

Code ASCII de E. 

Code ASCII de L. 

Code ASCII de L. 

Code ASCII de O. 

Code ASCII de ”’. 


A partir de la mémoire 536, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


70 A=PEEK(44675)+256+PEEK(44676) 


35-0 35+256*0=35 ; longueur de l'instruction. 
70-0 70+256*0=70 ; étiquette de l'instruction. 
13-96-0 Variable en virgule flottante stockée en LOMEM +96. 
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193 
239 
255-18 
40 

31 
0-0-131 
46-144 
41 

244 
26-0-1 
246 
255-18 
40 

31 
0-0-132 
46-144 
41 


Code ASCII de À, +128, variable A. 
Token de 
Token de PEEK. 

Code ASCII de (. 

Constante en virgule flottante codée sur 5 octets. 
(1+46/128+131/32768)+x2"(144 — 129) = 

44675. 

Code ASCII de ). 

Token de +. 

Constante codée sur 2 octets ; valeur 0+256*1=256. 
Token de *. 

Token de PEEK. 

Code ASCII de (. 

Constante en virgule flottante codée sur 5 octets. 
(1+46/128+132/32768)+2"(144 — 129) = 

44676. 

Code ASCII de ). 


A partir de la mémoire 571, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


80 FOR J-367 TO A STEP 30:CLS 


29-0 
80-0 

158 

32 
13-105-0 
202 

239 
26-111-1 
32 

236 

32 
13-96-0 
193 


29+256*0=29 ; longueur de l'instruction. 

80 +256*0 = 80 ; étiquette de l'instruction. 

Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J, +128 ; variable J. 

Token de =. 

Constante codée sur 2 octets ; valeur 111+256*1 =367. 
Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +96. 
Code ASCII de À, +128 ; variable A. 
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Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante codée sur un octet, valeur 30. 
Séparation :. 

Token de CLS. 


À partir de la mémoire 600, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


90 FOR 1-J TO J+28 STEP 2 


30-0 
90-0 

158 

32 
13-114-0 
201 

239 
13-104-0 
202 

32 

236 

32 
13-105-0 
202 

244 
25-28 

32 

230 

32 

16 


30+256*x0= 30 ; longueur de l'instruction. 
90+256*0=90 ; étiquette de l'instruction. 

Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1, +128 ; variable |. 

Token de =. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J, +128 ; variable J. 

Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de }, +128 ; variable |. 

Token de +. 

Constante codée sur 1 octet, valeur 28. 

Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante de valeur 2. 


A partir de la mémoire 630, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


100 PRINT [;PEEK(II),1+1;PEEK(1+ 1}:NEXT | 


213% = 


45-0 
100-0 
191 

32 
13-114-0 
201 

59 
255-18 
40 
13-114-0 
201 

41 

44 
13-114-0 
201 

244 

15 

49 
255-18 
40 
13-114-0 
201 

244 

15 

41 

176 

32 
13-114-0 
201 


45+256*0=45 ; longueur de l'instruction. 
100+256*0=100 ; étiquette de l'instruction. 

Token de PRINT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de | +128 ; variable I. 

Code ASCII du caractère ;. 

Token de PEEK. 

Code ASCII du caractère (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de |! +128 ; variable I. 

Code ASCII du caractère ). 

Code ASCII du caractère ,. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1 +128 ; variable I. 

Token de +. 

Constante de valeur 1. 

Code ASCII du caractère ;. 

Token de PEEK. 

Code ASCII du caractère (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1 +128 ; variable I. 

Token de +. 

Constante de valeur 1. 

Code ASCII du caractère ). 

Token de NEXT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1, +128 ; variable I. 


A partir de la mémoire 675, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


110 PRINT:INPUT R$: IF LEFTS(R$,1) < > “C" THEN 140 


LL AGA TS 


32 
255-117 
40 
3-123-0 
210 

44 

15 

41 

242 

34 

67 

34 

32 

235 

32 
29-35-3 


45+256*0=45 ; longueur de l'instruction. 
110+256+0=110 ; étiquette de l'instruction. 
Token de PRINT. 

Séparation :. 

Token de INPUT. 

Code ASCII de espace. 

Variable alphanumérique stockée en LOMEM +123. 
Code ASCII de R+128 ; variable R$. 
Séparation :. 

Token de IF. 

Code ASCII de espace. 

Code ASCII de espace. 

Token de LEFTS$. 

Code ASCII du caractère (. 

Variable alphanumérique stockée en LOMEM + 123. 
Code ASCII de R+128 ; variable R$. 

Code ASCII du caractère .. 

Constante de valeur 1. 

Code ASCII du caractère ). 

Token de < >. 

Code ASCII du caractère ”. 

Code ASCII du caractère C. 

Code ASCII du caractère ”. 

Code ASCII de espace. 

Token de THEN. 

Code ASCII de espace. 


Adresse absolue codée sur 2 octets ; 
valeur 35+256+3 = 803. 


A partir de la mémoire 715, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


120 FOR 1=J TO J+28 STEP 2:PRINT #8,1;PEEK(I},1+ 1:PEEK(I+ 1):NEXT | 


74-0 74+256*0-74 ; longueur de l'instruction. 
120-0 120+256*0=120 ; étiquette de l'instruction. 


"35 


158 

32 
13-114-0 
201 

239 
13-105-0 
202 

32 

236 

32 
13-105-0 
202 

244 
25-28 

32 


44 
13-114-0 
201 
59 
255-18 
40 
13-114-0 
201 
41 
44 
13-114-0 
201 


Token de FOR. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Token de =. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J+128 ; variable J. 

Code ASCII de espace. 

Token de TO. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +105. 
Code ASCII de J+128 ; variable J. 

Token de +. 

Constante codée sur 1 octet, valeur 28. 

Code ASCII de espace. 

Token de STEP. 

Code ASCII de espace. 

Constante de valeur 2. 

Séparation :. 

Token de PRINT. 

Code ASCII de espace. 

Code ASCII de #. 

Constante de valeur 2. 

Code ASCII de ,. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Code ASCII de :. 

Token de PEEK. 

Code ASCII de (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 

Code ASCII de ). 

Code ASCII de ,. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 
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176 

32 
13-114-0 
201 


Token de +. 

Constante de valeur 1. 

Code ASCII de ;. 

Token de PEEK. 

Code ASCII de (. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable |. 

Token de +. 

Constante de valeur 1. 

Code ASCII de ). 

Séparation :. 

Token de NEXT. 

Code ASCII de espace. 

Variable en virgule flottante stockée en LOMEM +114. 
Code ASCII de 1+128 ; variable I. 


A partir de la mémoire 789, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


130 PRINT #8,:PRINT #8 


15-0 
130-0 
191 
32 


44 


15+256*0=15 ; longueur de l'instruction. 
29+256*0=130 ; étiquette de l'instruction. 
Token de PRINT. 

Code ASCII de espace. 

Code ASCII de #. 

Constante de valeur 8. 

Code ASCII de .. 

Séparation :. 

Token de PRINT. 

Code ASCII de #. 

Constante de valeur 8. 

Code ASCII de ,. 


A partir de la mémoire 804, nous trouvons les codes ASCII corres- 
pondant à l'instruction BASIC : 


140 NEXT J 


SAT, 


11-0 11+256+*0=11 ; longueur de l'instruction. 
140-0 140+256x0= 140 ; étiquette de l'instruction. 
176 Token de NEXT. 
32 Code ASCII de espace. 
13-105-0 Variable en virgule flottante stockée en LOMEM +105. 
202 Code ASCII de J+128 ; variable ]. 


A partir de la mémoire 815, nous trouvons les codes al corres- 
pondant à l'instruction BASIC : 


150 END 


11-0 11+256+*0=11 ; longueur de l'instruction. 
140-0 140+256+0= 140 ; étiquette de l'instruction. 
152 Token de END. 


Puis nous trouvons quatre codes ASCII égaux à zéro ; le premier 
correspond à la fin d'instruction, les trois suivants à l'indication de 
fin de programme BASIC. 

La longueur de l'instruction est stockée en début d'instruction pour 
les raisons suivantes. 

Lorsque l’interpréteur BASIC rencontre pour la première fois un 
GOTO ou un GOSUB suivi d’une étiquette, il ne sait pas à partir de 
quelle mémoire est implantée l'instruction vers laquelle on demande 
le branchement. L'interpréteur commence par regarder dans les 
mémoires 31467 et 31468 le numéro d'étiquette de la première ins- 
truction ; si c'est la bonne, il effectue le branchement du programme 
sur cette instruction. Dans le cas contraire, il regarde dans les mémoi- 
res 368 et 369 la longueur de l'instruction ; il calcule l'adresse du 
début de l'instruction suivante, et il va regarder à cette nouvelle 
adresse l’étiquette de l'instruction suivante ; si c’est la bonne, il effec- 
tue le branchement ; sinon, il calcule l’adresse de l'instruction sui- 
vante, et ainsi de suite. Si la longueur de l'instruction n'était pas indi- 
quée, l’interpréteur serait obligé d'explorer toute l'instruction jusqu'à 
l'étiquette suivante, ce qui lui ferait perdre beaucoup de temps. Le 
même principe est utilisé pour l’ordre LIST. 
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Une dernière remarque : l'effet de la commande NEW sur l’Ams- 
trad est beaucoup plus radical que sur d’autres ordinateurs. En effet, 
de nombreux ordinateurs se contentent de remettre les quatre pre- 
mières mémoires du programme à zéro, ce qui permet de récupérer 
après quelques PEEK et POKE un programme intempestivement détruit 
par NEW. Par contre, l’Amstrad remet toutes les mémoires dans leur 
état initial et le programme est complètement et définitivement effacé. 


CODAGE DES VARIABLES 


Introduisons le programme suivant : 


S REM CH3-P2 


19 
28 

30 

40 

50 

69 

70 

ET 

ça 

189 
118 
120 
130 
148 
159 
169 
179 
189 
198 
200 
219 
228 
238 
248 
250 
269 
279 
280 
298 
309 
319 
320 
330 
349 
35q 
368 
370 
380 
390 
ELT) 
418 
420 
439 
440 
459 
469 
470 


CLS : A1=0 : A2=0 : A3=0 : A4=8 : A5=0 : 
A=256 : BC=2 : DIEF=1.2 : GX=4 : HIY=S : 
X=R2AEF : Y=&X18100018 

LL#=LS + MMS : LS=MMS + "1234" 

INPUT US$ : INPUT W$ 

DIM Z(2),22(1,2),X2C1),Y#$C3) 

FOR 1=8 TO 2 : Z(1)=I : NEXT 1 

FOR 1=8 TO 1 : X2C1)=108%1 : NEXT I 


FOR 1=6 TO 1 : FOR J=8 TO 2 : 


Z2C1,J)=180%*x1+J 


1=6 : J=6 : 
L$=" BONJOUR" 


FOR I1=0 TO 3 : Y#CI1)=CHR#(I+65) : NEXT I 

AI=PEEK(44675)+AXxPEEK(44676) : REM LOMEM 
A2=PEEK(44679)+AxPEEK(4468@) : REM ARYTAB 
AS3=PEEK(44681)+AXxPEEK(44682) : REM STREND 
A4=PEEK(45197)+AXxPEEK(45198) : REM FRETOP 
AS=PEEK(45199)+AXxPEEK(45266) : REM HIMEM 


CLS 

FOR J=Ai TO A2 STEP 38 
PRINT "LOMEM À ARYTAB";A1;"/";A2 
FOR 1=J TO J+28 STEP 2 


IF 1342 THEN 218 


: NEXT J 


R$="Z2" 
5 MM$="QUERTY" 


: NEXT I 


PRINT : PRINT I3PEEK(I),1+13PEEK(I+1) ; 
NEXT I 

PRINT : PRINT : INPUT R$ : IF LEFT#(R#,1)<>"C" THEN 279 
PRINT #8, : PRINT #8,"LOMEM À ARYTAB";A1;"/";A2 

FOR I=J TO J+28 STEP 2 : IF 1)42 THEN 268 

PRINT #8, : PRINT #8,1;PEEK(I),1+13PEEK(I+1); 

NEXT I : PRINT #8, : PRINT #8, 

CLS 

NEXT J 


FOR J=A2 TO A3 STEP 36 
PRINT "ARYTAB À STREND" ;42;"/"3;A3 
FOR I=J TO J+28 STEP 2 


PRINT PRINT I;PEEK(1),1+1;PEEK(I+1); 
NEXT 1 

PRINT PRINT INPUT R$ 

PRINT #8, PRINT #8,"ARYTAB À STREND" 


FOR I1=J TO J+28 STEP 2 


IF 1243 THEN 336 


PRINT #8, PRINT #8,1;PEEK(1I),1+1;PEEKÇ1+1); 
NEXT I PRINT #8, PRINT #8, 

CLS 

NEXT J 


FOR J=AS TO 4 STEP -38 


PRINT "HIMEM À FRETOP";45;"/"3;44 

FOR 1=J TO J-28 STEP -2 

PRINT : PRINT I3PEEK(1),1+13;PEEKÇCI+1); 
NEXT 1 

PRINT : PRINT : INPUT R$ 

PRINT #8, 
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1F LEFT$CR#,1)<>"C" THEN 398 
;A2;"/"3;A3 
1F 1343 THEN 388 


IF LEFTE(R#S,1)<)>"C" THEN 518 
PRINT #8,"HIMEM 4 FRETOP";,A5S;"/"3;A6 


488 FOR 1=J TO J-28 STEP -2 : IF 1<A4 THEN 508 


498 PRINT #8, : PRINT #8,1;PEEKÇI),1+1;PEEKCI+1); 
506 NEXT I : PRINT #8, : PRINT #8, 

518 CLS 

528 NEXT J 


538 FOR I=AS TO A4 STEP -i 

548 PRINT CHR$(PEEK(I))3; : NEXT I 

558 PRINT : PRINT : INPUT R$ : IF LEFT$(R#,1)€>"C" THEN 598 
568 PRINT #8, : PRINT #8, 

570 FOR I=AS TO A4 STEP -1 : PRINT H#8,CHR$S(PEEK(1))3; : NEXT I 
588 PRINT #8 

598 END 


Dans sa première partie, qui va jusqu'à l’ordre 100, nous prépa- 
rons les mémoires qui vont contenir les variables en leur donnant 
une valeur. Puis, après avoir calculé les valeurs actuelles de LOMEM, 
ARYTAB, STREND, FRETOP et HIMEM, nous faisons successivement 
l'exploration des trois zones LOMEM à ARYTAB, ARYTAB à STREND, 
HIMEM à FRETOP, tout en les affichant. 


10 à 100 


Nettoyage de l'écran, puis nous donnons des valeurs à toutes les 
variables que nous désirons utiliser : soit pour réaliser le programme 
(variables A1, A2, A3, A4, A5, |, J, A), soit celles qui sont placées à 
titre d'exemple, cela afin de réserver l’espace mémoire des variables 
avant de demander les valeurs de ARYTAB et STREND. Nous avons 
choisi un ou plusieurs exemples de chaque type de variable : 

e variables dites en virgule flottante, 
e variables entières, 
e variables a/phanumériques, dimensionnées ou non. 


110 à 150 


Nous calculons les valeurs actuelles de LOMEM, ARYTAB, STREND, 
FRETOP et HIMEM. 


160 à 280 


Exploration et affichage des mémoires comprises entre LOMEM et 
ARYTAB, avec option d'édition sur imprimante si l’on frappe un C. 


290 à 400 


Exploration et affichage des mémoires comprises entre ARYTAB et 
STREND, avec option d'édition sur imprimante si l’on frappe un C. 


_- 40 — 


410 à 520 


Exploration et affichage des mémoires comprises entre HIMEM et 
FRETOP, avec option d'édition sur imprimante si l’on frappe un C. 


530 à 580 


Boucle permettant la traduction en caractères des codes ASCII trou- 


vés entre HIMEM et FRETOP. 


590 


Fin du programme. 


Lorsque ce programme est introduit, sauvegardez-le puis exécutez-le 
en donnant comme réponse, pour les deux valeurs de W$ : AAA puis 
BBBBB, et Z pour ne pas avoir d'édition sur l'imprimante ; vous devez 


obtenir les neuf écrans suivants : 


EEE DEEE DEEE EEE DEEE EEE EE Xe 


* 
* LOMEN À ARYTAB 2684 / 2771 x 
* # 
* 2684 8 2685 8 * 
# 2606 65 2687 145 x 
* 2688 4 2689 8 * 
# 2616 8 2611 192 +* 
* 2612 34 2613 148 * 
* 2614 ii 2615 6 * 
* 2616 65 2617 146 * 
* 2618 4 2619 8 * 
* 2620 8 2621 48 * 
#*# 2622 45 2623 148 x 
* 2624 11 2625 8 * 
* 2626 65 2627 147 * 
* 2628 4 26297 8 * 
* 2638 6 2631 112 x 
* 2632 Si 2633 140 * 
* * 
JDE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE 
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ECRAN 2 


RÉREREEÉÉÉERRRRERÉÉELERÉRIÉRRIRX 


* 
LOMEM 


* 

x 

* 2634 
* 2636 
* 2638 
* 2646 
* 2642 
* 2644 
* 2646 
* 2648 
* 2658 
* 2652 
* 2654 
# 2656 
* 2658 
* 2668 
* 2662 
x 

* 


266 EEE DE DE EEE DE DEEE EE EE EEE EX Xe 


À ARYTAB 2604 / 2771 


21 
65 
4 

6 
38 
31 
65 
4 

(:] 
38 
8 
281 
6 
64 
140 


2635 
2637 
2639 
2641 

2643 
2645 
2647 
2649 
2651 

2653 
2655 
2657 
2659 
2661 
2663 


8 
148 
8 
88 
144 
6 
149 
8 
123 
144 
8 

4 

( 
38 
8 


* 
* 
* 
* 
x 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
* 
* 


ECRAN 3 


KKKKKKEEEEEEREREXELEEEELEHEHRXX 


* * 
* LOMEM À ARYTAB 2664 / 2771 +* 
* * 
* 2664 @ 2665 282 * 
#* Zééé 4 2667 8 * 
* 2668 6 2667 128 * 
* 2676 38 2671 148 x 
* 2672 8 2673 8 * 
* 2674 218 2675 2 * 
* 2676 1 2677 86 * 
* 2678 1éé 2679 41 x 
* 2680 8 2681 193 * 
* 2682 4 2683 8 * 
* 2684 8 2685 8 * 
* 2686 8 2687 137 * 
* 2688 8 2689 0 * 
#* 2698 66 2691 195 * 
* 2692 4 2693 0 * 
* * 


ER DE DEEE DE DEEE DE DE DE DE DE DE DEEE EE DE DEEE DE DE 


ECRAN 5 
JDD DE DE E DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EEE 
* * 
* LOMEM À ARYTAB 2684 / 2771 x 
* x 
* * 
* 2724 6 2725 264 x 
* 2726 2 2727 108 * 
* 2728 1601 2729 166 * 
* 2730 8 2731 8 * 
* 2732 77 2733 285 * 
* 2734 2 2735 6 * 
x 2736 26 2737 2 * 
* 2738 8@ 2739 0 * 
* 2746 216 2741 4 * 
* 2742 @ 2743 @ * 
* 2744 188 2745 43 * 
* 2746 142 2747 0 * 
* 2748 8 2749 217 * 
* 2750 4 2751 8 * 
* 2752 6 2753 8 * 
* * 


KEKHKEHREEREREEELEEEREREEEXÉEXX 


ECRAN 7 
HÉHKHEREREREREEHEEEXEEREREREREEXX 
* * 
* ARYTAB À STREND 2771 / 2871 * 
* * 
* 2771 8@ 2772 8 * 
* 2773 218 2774 4 * 
* 2775 18 2776 6 * 
2777 Ai 2778 3 * 
* 2779 8 2788 8 * 
* 2781 8 2782 0 * 
* 2783 6 2784 8& * 
* 2785 8 2786 0 * 
* 2787 6 2788 8 * 
* 2789 129 2796 8 * 
* 2791 86 27792 6 * 
* 2793 6 2774 138 * 
*% 2795 1 2796 8 x 
* 2797 90 2778 218 * 
* 2799 4 2886 35 * 
* x 


KÉÉERERREREEREEREEREREÉE EX XX XX XX 


ECRAN 4 


RE OEHONE DEN MEN DEEE DEN DEEE DE DE DE DE EEE EE EE 


* * 
* LOMEM À ARYTAB 26084 / 2771 * 
* * 
* 2694 0 2695 8 * 
* 2696 6 2697 138 * 
* 2698 € 2699 0 * 
* 27086 68 2781 17 * 
* 2702 69 2703 198 * 
* 2704 4 2705 154 * 
* 2706 153 2707 153 * 
* 27608 25 2769 129 * 
* 2710 6 2711 8 * 
#* 2712 199 2713 1 * 
* 2714 4 2715 0 * 
* 2716 6 2717 8 * 
* 2718 72 2719 281 * 
* 2726 1 2721 5 * 
* 2722 @ 2723 0 * 
Li x 
DH DE ED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE NE 


ECRAN 6 


REX DE NE DE DE DE DE DEEE DE DE DE HE DE DE DE DE DE DE DE DEEE DE DEEE NE 


* * 
* LOMEM À ARYTAB 2684 / 2771 * 
* * 
* * 
* 2754 34 2755 136 * 
* 2756 120 2757 0 * 
* 2758 76 2759 204 * 
* 2768 2 2761 13 * 
* 2762 111 2763 166 * 
* 2764 8 2765 8 * 
* 2766 215 2767 2 * 
* 2768 5 2769 93 * 
* 2770 166 2771 80 * 
* + 
* * 
* * 
* * 
* * 
* * 
* * 
HE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEN DE EN 


ECRAN 8 
JE DD DE DE DE DEEE EDEN DEN EE DEEE EEE ME EU 
* * 
* ARYTAB À STREND 2771 / 2871 x 
* * 
* 2801 868 2882 2 * 
* 2803 3 2884 8 * 
* 2805 2 2886 8@ * 
* 2807 86 2888 @ x 
* 2849 0 2818 @ * 
* 2811 0 2812 0€ * 
* 2813 6 2814 8&@ * 
* 2815 32 2816 132 * 
* 2817 86 2818 6@ * 
* 2819 6 2828 8€ * 
* 2821 129 2822 8 * 
* 2823 8 2824 8 * 
* 2825 48 2826 132 * 
* 2827 8 2828 8 * 
* 28297 6 2830 8 * 
* * 


KKKEKKEREKEEEHÉEEREEEREREXEXEXX 


_ 42 — 


ECRAN 9 ECRAN 16 


KRKKKERÉRERXEEREREÉEEEEÉERELRELKÉEREX KEÉERERKEREEEREEEEEÉEREÉEREEREREE 


* * x 
* ARYTAB À STREND 2771 / 2871 *x * ARYTAB À STREND 2771 / 2871 * 
* x x # 
* 2831 130 2832 6 # *x 2861 1éé 2862 1 # 
* 2833 € 2834 8@ *x *x 2863 91 2864 1éé * 
* 2835 64 2836 132 * *x 2865 1 2866 956 * 
* 2837 6 2838 0 * *x 2867 166 2868 1 # 
# 2839 21lé 284@ 1 # *x 2867 89 2874 jéé * 
* 2841 7 2842 @ * x 2871 91 2872 166 * 
* 2843 1 2844 2 * # # 
* 2845 0 2846 8 x x * 
* 2847 6 2848 108 x x # 
* 2849 80 2856 6 LE * 
* 2851 0 2852 217 * + # 
* 2853 2 2854 15 * + * 
* 2855 6 2856 1 x * # 
* 2857 4 2858 6 * _* * 
* 28597 1 2868 92 * * * 
* * * * 
HÉRÉRLEREREEREEEEEEEHÉRERLELERE ÉHÉREREEEEEEREREEEELELÉEEÉELEEÉE 


ECRAN 11 ECRAN 12 
HRHRKRERREREREEEREREEEEKLERELEEE HÉEELELEELEEREREKEEEKEELÉELRÉEHX 
* * x * 
# HIMEM À FRETOP 42619/42585 x *x HIMEM À FRETOP 42619/42585 * 
* * * * 
* 42619 89 42620 24 *x *x 42589 éé 42598 éé * 
* 42617 82 42618 84 x *x 42587 éé 42588 65 * 
* 42615 87 42éié 67 * *x 42585 68 42586 67 * 
* 42613 82 42614 81 * *x 42583 70 42584 70 * 
* 42611 79 42612 85 * *x 42581 976 42582 76 * 
* 42609 78 42610 74 *x *x 42579 76 42588 76 * 
* 42607 éé 42688 79 *x *x 42577 76 42578 78 * 
* 42605 Si 42686 52 * * 42575 70 42576 7 * 
* 42683 49 42684 50 * *x 42573 96 42574 78 * 
* 42681 84 42682 89 * *x 42571 90 42572 70 * 
* 42599 69 42608 82 * *x 42569 8 42576 8 * 
* 42597 81 42598 87 *x *x 42567 6 42568 a * 
* 42595 65 4259é 65 * *x 42565 C] 425é6é 8 * 
* 42593 éé 42594 65 * *x 42563 (] 42464 @ x 
*x 42591 éé 42592 éé * *x 42561 (] 42562 8 * 
* * + % 
MR MRRRERERRRERERREEEXXE HÉRREREREEEKEELEÉEEEEERERERIRRX 


ECRAN 13 


YTREWGRUOJNOB4321 YTREWGAAABBBBBABCDZ 


Commençons tout d’abord par rappeler les informations données 
au Chapitre 2 ; dans la zone LOMEN/ARYTAB nous allons trouver 
les variables simples, dans la zone ARYTAB/STREND les variables 
dimensionnées, dans la zone HIMEM/FRETOP les variables alphanu- 
mériques. Les premiers octets des variables, dimensionnées ou non, 
auront la signification suivante. 

Les premiers octets contiendront les codes ASCII représentant le 
nom de la variable ; le dernier caractère de la variable aura son code 
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ASCII augmenté de 128, ce qui indiquera à l’interpréteur qu'il s’agit 
du dernier caractère. 

L'’octet suivant indiquera le type de variable : il sera égal à 7 pour 
indiquer une variable entière, égal à 2 pour une variable alphanu- 
mérique, égal à 4 pour une variable en virgule flottante. Puis les autres 
octets auront une signification différente suivant le type des variables . 

La valeur des variables simples entières est représentée par deux 
octets. On calcule la valeur suivante : premier octet + 256 fois le 
deuxième. Si le nombre obtenu est inférieur ou égal à 32767, la varia- 
ble a pour valeur ce nombre, on a alors un nombre positif ; si le nom- 
bre obtenu est supérieur à 32767 on retranche 65536 et c’est ce résul- 
tat qui représente la valeur de la variable, on a donc dans ce cas un 
nombre négatif. 

La valeur des variables simples en virgule flottante est représentée 
par cinq octets contenant l'argument et la mantisse du nombre : A, 
A2, A3, A4, A5. 

La valeur d'un nombre positif sera donnée par : 


(1 + A4/128 + A3/32768 + A2/8388608 + A1/2147483648) » 2 °°"? 
La valeur d’un nombre négatif par : 
- ( A41128 + A3/32768 + A2/8388608 + A1/2147483648) + 2°" 


Un nombre positif a son quatrième octet (A4) inférieur à 128 ; un 
nombre négatif a son quatrième octet (A4) supérieur ou égal à 128, 
ce qui signifie que le bit de poids fort de l’octet A4 est mis à zéro 
pour les nombres positifs et à un pour les nombres négatifs, ce qui 
permet de reconnaître les nombres positifs des nombres négatifs. 


EXEMPLE 


Le nombre 3 a pour représentation les quatre octets 0-0-0-64-130, 
soit : 


(1 + 64/1128 ) » 21078 2 (19 4 0.5 }+ 2 = 3 


Les variables a/phanumériques sont suivies de trois octets : le pre- 
mier donne la longueur de la chaîne de caractères, les deux suivants 
l'adresse à laquelle la chaîne est stockée. Suivant la provenance de 
l'information, la chaîne se trouvera dans le programme BASIC ou dans 
la zone HIMEM/FRETOP. 
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Pour les variables dimensionnées, la représentation se complique 
un peu. Après le type et le nom de la variable, nous trouverons : 


e Deux octets indiquant le nombre de mémoires occupées par le 
tableau. 


e Le décompte des octets commençant au premier octet suivant cette 
information. 


e Un octet indiquant le nombre de dimensions. 


e Un octet donnant la valeur de la dernière dimension plus une unité ; 
ce nombre représente le nombre d'éléments relatifs à cette dimen- 
sion, puisque l’on commence avec l'indice zéro (si l’on dimen- 
sionne à 2, il y a trois éléments : indice O, indice 1, indice 2) ; puis 
un octet contenant un zéro ; l’avant-dernière dimension, un octet 
contenant un zéro, et ainsi de suite jusqu’à la première dimension 
suivie d’un zéro. 


e Ensuite on trouve la valeur du premier élément sur deux octets 
pour une variable entière, sur cinq octets pour une variable en vir- 
gule flottante, ou la longueur de la chaîne de caractères suivie de 
son adresse de stockage sur trois octets pour une variable alpha- 
numérique. Puis le deuxième élément, le troisième, et ainsi de suite. 
Le rangement est effectué de la manière suivante : on fait d’abord 
varier le premier indice en gardant tous les autres à zéro, puis on 
ajoute une unité au deuxième indice et on refait varier le premier 
indice, et ainsi de suite. Par exemple : pour A(2,3) on trouve suc- 
cessivement A(0,0), A(1,0), A(2,0), A(0O,1), A(1,1), A(2,1) A(0,2), 
A(1,2), A(2,2), A(0,3), A(1,3), A(2,3). 


Nous sommes maintenant prêts à examiner ce que vient de nous 
donner notre programme. 


DE LOMEM A ARYTAB 


Mémoire Valeur Signification 


2604 0 Première variable commençant 
2605 (0) par À. 
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2606 65 
2607 145 
2608 4 
2609 (0) 
2610 0 
2611 192 
2612 34 
2613 140 


Nom de la variable ; 65 code 
ASCII de À, 145 code ASCII 
de 1 augmenté de 128, soit fin 
du nom de la variable. 


Variable en virgule flottante. 


Valeur de la variable dans ce cas : 
(1+34/128 +192/32768)x2"(140 — 129) = 
2604. 


Regroupons maintenant les octets relatifs à une variable : 


2614 à 2623 
1:0 
65-146 
4 
0-0-48-45-140 


2624 à 2633 
11-0 
65-147 
4 
0-0-112-51-140 


2634 à 2643 
21-0 
65-148 
4 
0-0-88-38-144 


Deuxième variable commençant par A. 
Code ASCII de A et de 2 : variable A2. 
Variable en virgule flottante. 

Valeur de la variable 2771 

(1+45/128 +48/32678)x2"(140 — 129). 


Troisième variable commençant par A. 
Code ASCII de A et de 3 : variable A3. 
Variable en virgule flottante. 


Valeur de la variable 2871 : 
(1+51/128+112/32678)*x2"(140 — 129). 


Quatrième variable commençant par A. 
Code ASCII de A et de 4 : variable A4. 
Variable en virgule flottante. 


Valeur de la variable 42584 : 
(1+38/128+88/32768)*x2"(144- 129), 
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2644 à 2653 
31-0 
65-149 
4 
0-0-123-38-144 


2654 à 2662 


0-0-64-38-140 


2663 à 2671 
0-0 
202 
4 
0-0-128-38-140 


2672 à 2678 


2679 à 2687 
41-0 
193 
4 
0-0-0-0-137 


Cinquième variable commençant par A. 
Code ASCII de A et de 5 : variable A5. 
Variable en virgule flottante. 


Valeur de la variable 42619 : 
(1+38/128+123/32768)+x2"(144 — 129). 


Première variable commençant par 1. 
Code ASCII de | : variable 1. 
Variable en virgule flottante. 


Valeur de la variable 2660 : 
(1+38/128+64/32768)x2"(140 — 129). 


Première variable commençant par J. 
Code ASCII de } : variable J. 
Variable en virgule flottante. 


Valeur de la variable 2664 : 
(1+38/128+128/32768)x2"(140 — 129). 


Première variable commençant par R. 
Code ASCII de R : variable R$. 

Variable alphanumérique. 

Longueur de la chaîne 1. 
86+256*166—42582, adresse de stockage. 


Sixième variable commençant par A. 
Code ASCII de A : variable A. 
Variable en virgule flottante. 


Valeur de la variable 256 : 
2°(137 —-129). 
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2688 à 2697 
0-0 
66-195 
4 
0-0-0-0-130 


2698 à 2709 
0-0 
68-17-69-198 


4 
154-153-153-25-129 


2710 à 2715 


2716 à 2722 


2723 à 2729 


10 
101-166 


Première variable commençant par B. 
Code ASCII de B et de € : variable BC. 
Variable en virgule flottante. 


Valeur de la variable 2 : 
2°(130 - 129). 


Première variable commençant par D. 
Code ASCII de D, 1,Eet F: 

variable D1EF 

Variable en virgule flottante. 


Valeur de la variable 1.1999999 : 
(1+25/128+153/32768 +153/8388608)*2°(129 - 129). 


Première variable commençant par G. 
Code ASCII de G : variable G%. 
Variable entière. 

Valeur de la variable 4. 


Première variable commençant par H. 
Code ASCII de H et de 1 : variable HI%. 
Variable entière. 

Valeur de la variable 5. 


Première variable commençant par L. 
Code ASCII de L : variable L$. 
Variable alphanumérique. 

Longueur variable 10. 


101+256*266-42597, adresse de stockage. 
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2730 à 2737 


2738 à 2746 
0-0 


216 
4 
0-0-188-43-142 


2747 à 2755 
0-0 
217 
4 
0-0-0-34-136 


2756 à 2763 


13 
111-166 


2764 à 2770 


Première variable commençant par M. 
Code ASCII de M et de M : variable MM$. 
Variable alphanumérique. 

Longueur variable 6. 

26+256*2=538, adresse de stockage. 


Première variable commençant par X. 
Code ASCII de X : variable X. 
Variable en virgule flottante. 


Valeur de la variable 10991 : 
(1+43/128+188/32768)+x2"(142 — 129). 


Première variable commençant par Y. 
Code ASCII de Y : variable Y. 
Variable en virgule flottante. 


Valeur de la variable 162 : 
(1+34/128)+*2"(136 — 129). 


Deuxième variable commençant par L. 
Code ASCII de L et de L : variable LL$. 
Variable alphanumérique. 

Longueur variable 13. 
111+256+*166=42607, adresse de stockage. 


Première variable commençant par W. 
Code ASCII de W : variable Wf. 
Variable alphanumérique. 

Longueur variable 3. 
93+256+*166-42589, adresse de stockage. 
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DE ARYTAB A STREND 


2771 à 2794 


0-0 

218 

4 

18-0 

1 

3-0 
0-0-0-0-0 
0-0-0-0-129 


0-0-0-0-130 


2795 à 2836 


3-0 

2-0 

0-0-0-0-0 
0-0-0-32-132 
0-0-0-0-129 
0-0-0-48-132 


0-0-0-0-130 


0-0-0-64-132 


Première variable commençant par Z. 
Code ASCII de Z : variable Z. 
Variable en virgule flottante. 
Nombre d’octets d'occupation : 
Première dimension. 


18. 


Nombre d'éléments 1'° dimension : 3. 
Valeur de la variable Z(0)=0. 

Valeur de la variable Z(1)=1 : 
2°(129-—7129). 

Valeur de la variable Z(2) = 2 : 
2°(130 — 129). 


Deuxième variable commençant par Z. 
Code ASCII de Z et de Z : variable ZZ. 
Variable en virgule flottante. 

Nombre d’octets d'occupation : 35. 
Nombre de dimensions : 2. 

Nombre d'éléments 2° dimension : 3. 
Nombre d'éléments 1'° dimension : 2. 
Valeur de la variable ZZ(0,0)=0 : 
27-129, 

Valeur de la variable ZZ(1,0) = 10 : 
(1+32/64)+*2°(132-129). 

Valeur de la variable ZZ(0,1)=1 : 
2°(129—7129). 

Valeur de la variable ZZ(1,1)=11 : 
(1+48/128)*2°(132 - 129). 

Valeur de la variable ZZ(0,2) = 2 : 
2°(130 — 129). 

Valeur de la variable ZZ(1,2)=12 : 
(1+64/128)+x2(132-129). 
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2837 à 2849 


0-0 Première variable commençant par X. 
216 Code ASCII de X : variable X%. 
1 Variable entière. 
7-0 Nombre d’octets d'occupation : 7. 
1 Nombre de dimensions : 1. 
2-0 Nombre d'éléments 1'° dimension : 2. 
0-0 Valeur de la variable X% (0) = 0. 
100-0 Valeur de la variable X%(1) = 100. 


2850 à 2870 


0-0 Première variable commençant par Y. 
217 Code ASCII de Y : variable Y$. 
2 Variable alphanumérique. 
15-0 Nombre d’octets d'occupation : 15. 
1 Nombre de dimensions : 1. 
4-0 Nombre d'éléments 1'° dimension : 4. 
1 Longueur Y$(0)=1. 
92-166 92+256+166-42588. Adresse stockage Y$(0). 
1 Longueur Y$(1)=1. 
91-166 91+256+166-42587. Adresse stockage Y$(1). 
1 Longueur Y$(2)=1. 
90-166 90+256+166-42586. Adresse stockage Y$(2). 
1 Longueur Y$(3)=1. 
89-166 89+256+166-42585. Adresse stockage Y$(3). 


DE HIMEM A FRETOP 


42619 à 42607 

89-84-82-69-87-81-82-85-79-74-78-79-66. 

Code ASCII de Y,T,R, E, W, Q,R, U, O, J, N, O, B, soit BON- 
JOURQWERTY ; c'est la variable LLS$. 


= Si — 


42608 à 42597 

52-51-50-49-89-84-82-69-87-81. 

Code ASCII de 4, 3,2,1,Y,T,R,E, W, Q, soit QWERTY1234; 
c'est la variable L$. 
42596 à 42594 

65-65-65. 

Code ASCII de A, À, À, soit AAA ; c’est la première valeur de la 
variable W$. 
42593 à 42589 

66-66-66-66-66. 


Code ASCII de B, B, B, B, B, soit BBBBB ; c'est la valeur actuelle 
de la variable W$. 


42588 à 42585 
65-66-67-68. 


Code ASCII de À, B, C, D ; ce sont les quatre variables Y$(3), Y$(2), 
Y$(1), Y$(0). 


42584 à 42571 
90-90-90-90-90-90-90-90-90-90-90-90-90-90. 


Quatorze fois le code ASCII Z ; ce sont les valeurs successives de 
la variable R$. 


Au-delà de 42571, les informations ne sont plus liées au programme 
en cours d'activité. 


La variable alphanumérique MM$ a une adresse de stockage de 
538, c'est-à-dire une adresse à l’intérieur du programme BASIC. En 
effet, l’interpréteur ne recopie pas la valeur de cette variable dans 
la zone HIMEM/FRETOP, puisqu'elle est déjà disponible dans les 
mémoires. Par contre la variable L$, au moment de l'exécution de 
l’ordre 20, a son adresse dans le programme BASIC, mais à l’exécu- 
tion de l’ordre 40 la variable est stockée dans la zone HIMEM/ 
FRETOP, puisque sa nouvelle valeur n’est plus disponible dans les 
mémoires du programme. 
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Cette exploration nous montre aussi que l’interpréteur BASIC n’a 
pas effectué le nettoyage de la zone HIMEM/FRETOP ; il stocke les 
variables alphanumériques au fur et à mesure de leur arrivée. 
Lorsqu'une telle variable change de valeur, il stocke la nouvelle valeur 
à la suite des autres variables ; en effet, si la nouvelle chaîne de carac- 
tères a une longueur différente de la précédente, soit il y aurait de 
la place perdue, soit il n’y aurait pas assez de place s’il essayait de 
la remettre au même endroit. Nous avons alors l’ancienne valeur et 
la nouvelle dans la zone HIMEM/FRETOP, mais seule la nouvelle 
valeur est référencée dans la zone LOMEM/ARYTAB ; c'est le cas des 
variables W$ et R$. Au bout d’un certain temps, si la valeur de FRETOP 
rejoint la valeur de STREND l’interpréteur enlève les valeurs inutiles 
et remet les unes à la suite des autres les valeurs actuelles. On peut 
forcer l’interpréteur à effectuer ce travail en insérant l’odre FREE(O). 
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INTRODUCTION 
DE DEUX PROGRAMMES INDEPENDANTS 


Nous venons de réaliser des programmes qui s'auto-exploraient ; 
nous allons maintenant examiner l'exploration d'un programme 
quelconque. 

La première possibilité consiste à réserver un espace suffisant sous 
le TXTTAB auquel travaillera le programme à explorer, ou au-dessus 
du HIMEM ; puis à introduire le programme d'exploration à cet 
endroit ; rétablir le TXTTAB ou le HIMEM : introduire le programme 
à explorer ; remettre TXTTAB et HIMEM à la valeur du programme 
d'exploration et exécuter le programme d'exploration. 

La seconde possibilité consiste à introduire tout d’abord le pro- 
gramme à explorer dans les mémoires, puis à introduire le programme 
d'exploration à un autre endroit des mémoires, enfin à exécuter le 
programme d'exploration. 

Nous allons commencer par examiner cette dernière possibilité, 
qui est la plus rapide. 

Nous avons vu, au Chapitre 2, que la zone mémoire située entre 
STREND et FRETOP était un espace libre ; nous allons donc implan- 
ter le programme d'exploration à cet endroit. 

Tout d’abord, après avoir fait un RESET par CTRL+SHIFT + ESC, nous 
allons regarder les valeurs de TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM lorsqu'il n’y a pas de programme dans les mémoi- 
res de l’Amstrad (pour TXTTAB, LOMEM et HIMEM, nous examinons 
les deux séries de mémoires qui contiennent ces valeurs). 

Tapons : 


PRINT PEEK(44673)+2S6x*xPEEK(44674) Réponse : 367 (TXTTAB) 
PRINT PEEK(44592)+256*PEEK(44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+2Sé*xPEEK(44676) Réponse : 370 (LOMEM) 
PRINT PEEK(44677)+25é6*xPEEK(44678) Réponse : 370 (LOMEM) 
PRINT PEEK(44679)+256*xPEEK(4468ü) Réponse : 378 (ARYTAB) 
PRINT PEEK(44681)+256*xPEEK(44682) Réponse : 374 (STREND) 
PRINT PEEK(45197)+2S6*xPEEK(45198) Réponse : 42617 C(FRETOP) 
PRINT PEEK(45199)+256*xPEEK(45268 ) Réponse : 42619 CHIMEM) 
PRINT PEEK(45667)+256*PEEK(45668) Réponse : 426197 (HIMEM) 
REMARQUE 


LOMEM est situé trois mémoires au-dessus de TXTTAB ; LOMEM, 
ARYTAB et STREND ont la même valeur puisqu'il n’y a pas encore 
de variables. 
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Introduisons alors le programme suivant : 


18 CLS 

28 DATA BONJOUR, PROGRAMME 1 

38 DIM A$(2) ,A(108) 

49 FOR I=1 TO 2 : READ A$S(I) : NEXT 1 
58 FOR I=i TO 18 : ACI)D=I : NEXT 1! 

68 B=1 : Ch=ASC1)+A8(2) 

78 PRINT A$(1) ,A$(C2) 

84 END 


AU passage, sauvegardons ce programme sous le nom de CH4-P1. 
Examinons de nouveau TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM. 


PRINT PEEK(44673)+256*PEEK(44674) Réponse : 367 (TXTTAB) 
PRINT PEEK(44592)+256*xPEEK(44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+2S6*xPEEK( 44676) Réponse : 549 (LOMEM) 
PRINT PEEK(44677)+256*PEEK(44678) Réponse : 549 (LOMEM) 
PRINT PEEK(44679)+256*xPEEK(44688) Réponse : 549 CARYTAB) 
PRINT PEEK(44681)+256*PEEK(44682) Réponse : 5497 (STREND) 
PRINT PEEK(45197)+256*PEEK(45198) Réponse : 42619 (FRETOP) 
PRINT PEEK(45199)+256*xPEEK(45288) Réponse : 42619 CHIMEM) 
PRINT PEEK(44667)+256xPEEK(44668) Réponse : 42619 CHIMEM) 
REMARQUE 


Vous devez impérativement respecter exactement les programmes, 
y compris les espaces, pour obtenir les mêmes valeurs. 


Les valeurs de LOMEM, ARYTAB et STREND n'ont pas changé 
puisque le programme n’a pas été exécuté. 

Nous tapons RUN pour exécuter ce programme. Nous voyons 
s'afficher : 


BONJOUR PROGRAMME1 


Examinons de nouveau TXTTAB, LOMEM, ARYTAB, STREND), 
FRETOP, HIMEM 
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PRINT PEEK(44673)+256xPEEK( 44674) Réponse : 367 (TXTTAB) 


PRINT PEEK(44592)+256*xPEEK(44593) Réponse : 367 (TXTTAB) 
PRINT PEEK(44675)+256xPEEK(44676) Réponse : 572 (LOMEM) 
PRINT PEEK(44677)+256*xPEEK( 44678) Réponse : 572 (LOMEM) 
PRINT PEEK(44679)+256*xPEEK(4468@) Réponse : 597 (ARYTAB) 
PRINT PEEK(44681)+256*xPEEK(44682) Réponse : 6797 (STREND) 
PRINT PEEK(45197)+2546*xPEEK(45198) Réponse : 42692 (FRETOP) 
PRINT PEEK(45199)+256*xPEEK(45288) Réponse : 42619 (HIMEM) 
PRINT PEEK(44667)+256*xPEEK( 44668) Réponse : 42619 CHIMEM) 


Nous constatons que la zone qui va de l’adresse 679 à l'adresse 
42602 est libre. Nous allons changer les valeurs de TXTTAB, LOMEM, 
ARYTAB, STREND, FRETOP, HIMEM pour introduire un deuxième 
programme sans détruire le premier ; mais pour pouvoir le faire, il 
est nécessaire qu'il n’y ait pas eu d'ordre RUN. On effectue donc 
un RESET avec CTRL+SHIFT+ESC, puis LOAD ‘‘CH4-P1”. Tapons 
alors : 


POKE44673,8 : POKE 44674,18 Positionne TXTTAB en 2568 

POKE44675,3 : POKE 44676,18 Positionne LÜMEM en 2563 

POKE44679,3 : POKE 44688 ,14 Positionne ARYTAB en 2563 

POKE44681,3 : POKE 44682,18 Positionne STREND en 2563 

POKE45197,8 : POKE 451978,15@ Positionne FRETOP en  384û@û 

POKE45199,6 : POKE 45280,158 Positionne HIMEM en 38480 
REMARQUE 


Il n’est pas nécessaire, pour l'introduction d'un programme, de 
changer les valeurs des deuxièmes couples de mémoires de TXTTAB, 
LOMEM et HIMEM. 


La zone réservée aux programmes BASIC est maintenant celle qui 
va de l'adresse 2560 à l'adresse 38400. Si nous introduisons un nou- 
veau programme, il va se positionner dans cet espace mémoire, ce 
que nous allons vérifier. Tapons : 
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18 CLS 

28 DATA PROGRAMME2 ,AUREUDIR 
38 DIM A$(2),A(18) 

48 FOR I1=1 TO 2 : READ A&(1) 


: NEXT I 


S8 FOR I=1 TO 18 : ACI)D=I : NEXT 1! 


68 B=2 : C$=AS(1)+A$0C2) 
76 PRINT A$(1) ,A#(C2) 
84 END 


Sauvegardons ce programme sous le nom de CH4-P2. 
Nous tapons RUN pour exécuter ce programme et nous voyons 


s'afficher : 


PROGRAMME2 AUREVOIR 


C'est bien le second programme qui s'exécute. 
Examinons TXTTAB, LOMEM, ARYTAB, STREND, FRETOP, 


HIMEM : 


PRINT PEEK(44673)+256*PEEK(44674) 
PRINT PEEK(44592)+256*PEEK(44593) 
PRINT PEEK(44675)+256*PEEK(44676) 
PRINT PEEK(44677)+256*PEEK(44678) 
PRINT PEEK(44679)+256*PEEK(44688) 
PRINT PEEK(44681)+256*xPEEK(44682) 
PRINT PEEK(45197)+256*xPEEK(45198) 
PRINT PEEK(45199)+256*PEEK(45286) 


PRINT PEEK(44667)+256*PEEK( 44668) 


Réponse : 2568 (TXTTAB) 


Réponse : 2568 (TXTTAB) 


Réponse : 2766 (LOMEM) 
Réponse : 2766 (LOMEM) 
Réponse : 2791 CARYTAB) 
Réponse : 2873 (STREND) 
Réponse : 38382 (FRETOP) 


Réponse : 38400 C(HIMEM) 


Réponse : 38408 CHIMEM) 


Nous constatons que les deuxièmes couples de mémoires pour 
TXTTAB, LOMEM et HIMEM ont bien pris les bonnes valeurs. 

Si maintenant nous remettons TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP, HIMEM aux valeurs du premier programme, et cela aussi 
pour les deuxièmes couples de TXTTAB, LOMEM et HIMEM : 


POKE44673,111 : POKE 44674 ,1 
POKE44592,111 : POKE 44593,1 
POKE44675,60 : POKE 44676,2 
POKE44677,60 : POKE 44678,2 
POKE446797,68 : POKE 44688 ,2 
POKE44681,60 : POKE 44682,2 
POKE30980,123 : POKE 45198,16é6 


POKE45199,123 : POKE 45208 ,166 


TXTTAB 


TXTTAB 


LOMEM 


LOMEM 


ARYTAB 


STREND 


FRETOP 


HIMEM 
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C367=111+256*#1) 

(367=111+256*1) 
(549=37+256%x2) 
(549=37+256%2) 
(31622=55+2S6%*x2) 
(31691=137+256*x2) 
(426197=123+256x*x166) 


(42619=123+256*166) 


et si nous faisons : 
LIST 


nous obtenons le listing du Programme 1. 
Nous pouvons maintenant faire RUN... et le Programme 1 s'exécute. 
Si nous voulons revenir au Programme 2, il suffit de repositionner 
TXTTAB, LOMEM, ARYTAB, STREND, FRETOP et HIMEM. 


POKE44673,8 : POKE 44674,1û TXTTAB (2568=8+256*x16) 
POKE44592,8 : POKE 44593,18 TXTTAB (2568=111+256*x10) 
POKE44675,206 : POKE 44676,18 LOMEM (2766=2806+256*x10) 


POKE44677,286 : POKE 44678,10 LOMEM (2766=2@06+256*x10@) 
POKE44679,231 : POKE 44688,18 ARYTAB (2791=231+256*1@) 
POKE44681,57 : POKE 44682,11 STREND (2873=57+256*x11) 
POKE36980,238 : POKE 451978,149 FRETOP (38382=238+256x149) 


POKE45199,0 : POKE 45268@,156 HIMEM (38400=0+256x*x150) 


Si nous tapons : 
PRINT C$,B 
nous obtenons la réponse : 
“PROGRAMME2AUREVOIR 2" 


Les variables de travail du second programme sont donc toujours 
bien présentes. 


Nous avons donc le schéma suivant d'occupation de la mémoire : 
d’une part avec uniquement le programme CH4-P1, d'autre part avec 
le programme CH4-P1 +CH4-P2. 
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Il s’agit bien sûr d’un cas particulier au niveau des valeurs des 
adresses. 


COEXISTENCE DE DEUX PROGRAMMES EN MÉMOIRE 
SCHÉMA D'OCCUPATION DES MÉMOIRES 


CH4-P1 CH4-P1 + CH4-P2 
HIMEM 42619 


Variables Variables 


alphanumériques alphanumériques 


CH4-P1 CH4-P1 
FRETOP 42602 
38400 HIMEM 
Variables 
alphanumériques 
CH4-P2 
38382 FRETOP 
2873 STREND 
Variables dim 
CH4-P2 
2791 ARYTAB 
Variables 
CH4-P2 
2766 LOMEM 
CH4-P2 BASIC 
2560 TXTTAB 
STREND 679 
Variables dim Variables dim 
CH4-P1 CH4-P1 
ARYTAB 597 


Variables 
CH4-P1 


Variables 
CH4-P1 
LOMEM 572 


CH4-PT BASIC CH4-PT BASIC 
TXTTAB 367 


_— 61 - 


En conclusion de ce chapitre, nous venons de montrer que plu- 
sieurs programmes peuvent coexister dans les mémoires de l'Amstrad 
et que l’on peut passer de l’un à l’autre. Pour cela, il est nécessaire 
de positionner pour une première introduction : 


TXTTAB (dont l'adresse est contenue dans les mémoires 44673 
et 44674) à la valeur de la mémoire où l’on désire que 
la première instruction BASIC soit écrite. 


LOMEM _ (dont l'adresse est contenue dans les mémoires 44675 
et 44676) à la valeur TXTTAB +3. 


ARYTAB (dont l'adresse est contenue dans les mémoires 44679 
et 44680) à la valeur TXTTAB +3. 


STREND (dont l'adresse est contenue dans les mémoires 44681 
et 44682) à la valeur TXTTAB +3. 


HIMEM _ (dont l'adresse est contenue dans les mémoires 45199 
et 45200) à la valeur désirée, valeur maximale d’utilisa- 
tion des mémoires par ce programme. 


FRETOP (dont l'adresse est contenue dans les mémoires 45197 
et 45198) à la valeur désirée, valeur maximale d’utilisa- 
tion des mémoires par ce programme. 


Deux programmes où plus peuvent être introduits, à condition de 
ne pas avoir effectué de RUN. 

Si l’on revient à un programme qui a déjà été exécuté, il est de 
plus nécessaire de remettre TXTTAB, LOMEM, ARYTAB, STREND, 
FRETOP et HIMEM ainsi que les deuxièmes couples de mémoires pour 
TXTTAB, LOMEM et HIMEM (soit 44592/44593 pour TXTTAB, 
44677/44678 pour LOMEM, 44667/44668 pour HIMEM) à la valeur 
qu'ils avaient à la fin de l'exécution du programme ; valeur à recher- 
cher immédiatement avant toute autre manipulation (LOMEM : 
PEEK(44675) et PEEK(44676), ARYTAB : PEEK(44679) et PEEK(44680), 
STREND : PEEK(44681) et PEEK(44682), FRETOP : PEEK(45197) et 
PEEK(45198)). 

Tout ce qui vient d’être expliqué est valable pour la première pos- 
sibilité que nous avons citée au début de ce chapitre, c'est-à-dire de 
placer un programme sous le TXTTAB ou au-dessus du HIMEM ; seul 
le schéma d'occupation des mémoires sera modifié. 
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Ces différentes techniques seront utilisées dans la suite de cet 
ouvrage, en particulier chaque fois qu’il sera nécessaire de protéger 
des zones mémoire contre l'effacement. 


6% = 


PROGRAMME DE RECHERCHE 
D'ORDRES BASIC 


Nous allons maintenant réaliser la première partie de notre pro- 
gramme de déverminage, qui est la recherche des ordres BASIC. Pour 
cela, nous allons explorer les mémoires situées entre TXTAB et 
LOMEM (comme au Chapitre 3) en recherchant un ordre BASIC par- 
ticulier. Comme nous l'avons vu, les ordres BASIC sont représentés 
par des tokens, c'est-à-dire des codes ASCII supérieurs à 127. 

Notre programme, que nous appellerons TOKEN, va comporter les 
étapes suivantes : 


e Un menu permettant de choisir l’ordre BASIC à trouver. 


e Une exploration des mémoires entre TXTAB et LOMEM ; lorsqu'on 
trouvera un code ASCII égal à celui du token correspondant à 
l’ordre recherché, on stockera l'étiquette de l’ordre. Mais pour cela, 
nous devons être sûrs qu'il s’agit du code ASCII d’un token ; par 
conséquent, nous devons éliminer les octets correspondant aux 
adresses, aux constantes et aux fins de variables. 


° Lorsque tout le programme aura été exploré, nous éditerons le résul- 
tat soit à l’écran, soit sur une imprimante. 


Pour des raisons d’encombrement mémoire, afin de ne pas avoir 
une taille prohibitive pour ce programme, nous avons limité le menu 
à neuf ordres BASIC et le nombre d'étiquettes à 100. 

D'autre part, ce programme est la première partie de notre pro- 
gramme de déverminage ; nous allons lui donner des étiquettes com- 
prises entre 10000 et 20000, ce qui laissera la place aux étiquettes 
des instructions des autres programmes. 


Pour pouvoir explorer un programme existant, déjà chargé en 
mémoire aux valeurs normales de TXTAB et de HIMEM, nous implan- 
terons notre programme d'exploration à un emplacement non occupé 
par le programme à explorer. Nous le mettrons dans la zone au-dessus 
de l'adresse 20480 (ce qui laisse environ 20 000 mémoires pour le 
programme testé et ses variables numériques). Mais cette opération 
ne sera à faire qu’au moment de l’utilisation, nous la verrons donc 
au Chapitre 7. 
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Réalisons maintenant les trois parties du programme TOKEN. Le 
LOMEM de ce programme est 6319. 


MENU 


Le menu sera implanté entre les étiquettes 9994 et 11000 ; en voici 
le listing, que nous allons expliquer. 


9994 REM PROGRAMME DE RECHERCHE DE TOKEN 
9996 REM TXTTAB À 111+ 1x256= 367 
9998 REM LOMEM À 175+ 24x256= 6319 


18080 TXTTAB=368 

10618 DIM A(188) ,A$(10) 

18828 DATA CLS,DATA,DIM,ELSE,FOR,GOTO,LOCATE , PRINT ,READ 
10038 FOR I1=1 TO 9 : READ A$(I) : NEXT I 

19048 REM ..... CHOIX DE L’ORDRE RECHERCHE ..... 

19050 FOR I=i TO 18@ : ACI)=8 : NEXT I : CLS 

10868 LOCATE 7,1 : PRINT “CHOIX DU TOKEN CHERCHE :"* 


18878 LOCATE 16,4 : PRINT "CLS 1" 
18880 LOCATE 18,6 : PRINT "DATA 2" 
19698 LOCATE 16,8 : PRINT “DIM 3" 
18188 LOCATE 18,18 : PRINT "ELSE 4" 
18118 LOCATE 10,12 : PRINT “FOR 5" 
18128 LOCATE 16,14 : PRINT "“GOTO é" 
18138 LOCATE 10,16 : PRINT "LOCATE 7" 
18148 LOCATE 18,18 : PRINT “PRINT 8" 
19150 LOCÂATE 10,20 PRINT "READ 9” 


18168 LOCATE 1,23 : PRINT "TAPER LE NUMERO DU TOKEN CHERCHE [1/9]" 
18178 R$=INKEYS 

19180 R$=INKEYS : IF R$="" THEN 180180 ELSE R=ASC(R$) 

10198 IF R<49 OR R>57 THEN 18180 ELSE LOCATE 48,23 : PRINT R#& 
18208 TK=0@ 

10218 TK=-138#(R=49)-140#(R=50) -147#CR=51)-151#x(R=52) -158X%xCR=53) 
19220 TK=TK-168#(R=54)-169x(R=55)-191x(R=56) -195#(R=57) 

10238 RR=R-48 


9994 à 9999 


Quelques REM pour rappeler le nom du programme et ses adres- 
ses d'implantation. 


10000 


Nous mettons la valeur du TXTTAB +1 du programme à explorer 
dans la variable de nom TXTTAB, soit 368 dans le cas normal. 

Si vous voulez explorer des programmes implantés à un autre 
TXTTAB, il suffit de changer cette valeur. 


10010 


La variable dimensionnée A sera utilisée pour stocker les étiquettes 
des instructions où se trouve l’ordre BASIC recherché. Nous l'avons 
dimensionnée pour 100 étiquettes, c'est habituellement suffisant pour 
notre utilisation. 


2.67: = 


La variable A$ est destinée à recevoir le nom de l’ordre que l’on 
recherchera. C’est elle qui nous permettra d'indiquer en tête du résul- 
tat final le nom de l’ordre que l’on a cherché. 


10020 


Ces DATA servent à remplir la variable Af$. 


10030 
Boucle FOR/NEXT en | pour introduire les DATA dans la variable A$. 


10040 


Un REM pour rappeler le but du morceau de programme qui va 
suivre. 


10050 


Initialise à O les 100 variables A(1) de manière à simplifier ultérieu- 
rement l'affichage des résultats successifs. 


10060 à 10160 


Les ordres LOCATE et PRINT servent à réaliser l’affichage à l'écran 
du menu et de ses explications. 


10170 


Cette instruction sert à éliminer la lecture de la dernière touche 
enfoncée. 


10180 à 10190 


Ces instructions permettent la lecture du clavier en mettant le résul- 
tat dans la variable R par R = ASC(RS) ; la fonction ASC ne pouvant 
pas travailler sur R$ égal rien du tout, on doit éliminer le cas R$=""". 

Puis on teste la validité de l'information transmise par 
IFR<49OR R>57 THEN 10180. En effet le 1 a comme code 
ASCII : 49, le 2 : 50, et ainsi de suite jusqu’à 9 code 57 (voir Annexe 
À) ; la condition logique sera donc remplie pour les réponses 1, 2,... 
9 et le programme continuera alors à l'instruction 10200 ; elle ne sera 
pas remplie pour toute autre touche ; dans ce cas, il y aura retour 


au début de l'instruction 10180. 
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Pour finir, on affiche le caractère correspondant à la touche enfon- 
cée, si la réponse est acceptée. 


10200 à 10220 


Ces instructions calculent la valeur du token, variable TK, corres- 
pondant au choix effectué à l’aide d’une équation logique. 

En effet, l'expression (R=49) vaut O si R est différent de 49 et elle 
vaut — 1 si R=49 (nous avons bien dit : moins un). Donc pour R=49 
l'expression —138*(R=49) vaut (—138*x-—1)= +138 (et zéro pour les 
autres valeurs de R), ce qui est bien la valeur du token de FOR qui 
correspond au choix 1, soit R=49. Le même raisonnement montre 
que, dans le cas où R=49, tous les autres termes de l’équation sont 
nuls, et l’on a bien la valeur 138 pour la variable TK. 

Pour R=50 choix 2, c'est le deuxième terme qui n’est pas nul; il 
prend la valeur (— 140+—1)=140, valeur du token de NEXT, et ainsi 
de suite pour les autres choix. 


10230 


Compte tenu de la remarque faite pour l'instruction 10180, la varia- 
ble RR=R-—48 prend la valeur du choix effectué (c’est-à-dire 1, 2, 
3... ou 9), ce qui nous permettra de retrouver la variable indicée A$(R) 
qui correspond bien au choix effectué. En effet, si l’on a enfoncé la 
touche correspondant à 2, R aura la valeur du code ASCII de la tou- 
che 2, soit 50 (voir Annexe A) et RR=R-48=-50-48=2. 


EXPLORATION DES MÉMOIRES 


Nous allons implanter l'exploration des mémoires entre les 
étiquettes 10999 et 12000 ; en voici le listing : 


19999 REM ss sers rene eme sens mms nes nenesenensensnnenuse 
11009 REM EXPLORAT I ON 
110801 REM ...... sers messe eme eseeneneseneneneneeese 
11810 CLS 

11028 LOCATE 8,16:PRINT "ETIQUETTE DE L’INSTRUCTION" 

11039 LOCATE 18,12:PRINT "EN COURS D’EXPLORATI ON" 

11648 T=TXTTAB : 1=6 : AD=TXTTAB 

11944 REM ss seen mess meme memes eme esse eme enenenenennenee 
11045 REM ADRESSE DE L'’INSTRUCTION SUIVANTE 
11946 REM .... seen een me memes meme esse meneness 
11958 AD=PEEK(T)+256xPEEK(T +1) +AD 

11054 REM ss sonne nsss seems mens memes 
11055 REM ETIQUETTE DE L’INSTRUCTION 
110956 REM .....s.ssssssssusse annee rrnsere sens nenenensnensnensneneuse 
11960 ET=PEEK(T+2)+256*xPEEKCT+3) 

11878 LOCATE 18,16 : PRINT ET 

11080 T=T+3 

11898 T=T+1 : X=PEEK(T) 
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11994 REM ..ssssscrmeneueeeemseses esse esse 
11995 REM ELIMINATION DES REM 
11976 REM screen esse essence 
11108 IF X=197 THEN T=AD : GOTO 11858 

11194 REM sus smseeeeemes een 
11165 REM ELIMINATION DE L’ALPHANUMERI QUE 
11196 REM ss summer nnees 
11118 IF X=34 THEN GOTO 11128 ELSE GOTO 11138 

1112G T=T+1 : IF PEEK(T)<>34 THEN GOTO 11128 

11124 REM sense msn eee esse nneseesmeneseeeenes 
11125 REM ELIMINATION DES VARIABLES 
11126 REM ...ssssessssseeenesesmenenmes eee eneesmesneneeenennes 
11138 IF X<>13 AND X<>2 AND X<>3 THEN GOTO 11158 ELSE T=T+2 

11148 T=T+i : IF PEEK(T)<129 THEN 11146 ELSE T=T+1 : X=PEEK(T) 

11144 REM .... sus EE EE EE EEE CEE 
11145 REM ÉLIMINATION DES CONSTANTES 
11146 REM scene seen esse menenenenenesemnenmeeneneesnesse 
11150 IF X=25 THEN T=T+1 : GOTO 11898 

11168 IF X>25 AND X<31 THEN T=T+2 : GOTO 11898 

11178 IF X=31 THEN T=T+5 : GOTO 118978 


11174 REM .... scene A EE EE EEE 
11175 REM TEST DE FIN DE PROGRAMME 
11176 REM ms someone sense neneeee ones 


11180 D=PEEK(T): E=PEEK(T+1) : F= PEEKCT+2) 

11190 IF D=8 AND E=8 AND F=8 THEN GOTO 12818 

11194 REM soso ememeenemeeees eme eme eee 
11195 REM TEST "DE FIN D’ INSTRUCTION 
11196 REM sms mmememeee eee nee een emmener 
11268 IF X=@ THEN T=T+i : GOTO 11850 

11204 REM ....ssssssssseseneneemsne nee eee 
11205 REM TOKEN/STOCKAGE ETIQUETTE 
11206 REM ...... seems eusenueesee nn neneeemesnonenenesee 
112168 IF X=TK THEN 12141 : ACI)=ET 

11228 GOTO 11898 


10999 à 11001 


Des REM pour rappeler le but du module de programme qui va 
suivre. 


11010 
CLS nettoyage de l'écran. 
11020 et 11030 


L'exploration durant un certain temps, il est nécessaire de mon- 
trer à l’opérateur que le programme fonctionne correctement ; pour 
cela, on lui présente à l'écran, à chaque instant, l'étiquette en cours 
d'exploration. Ces deux ordres inscrivent à l'écran la signification des 
chiffres qui vont apparaître. 


11040 


T va être la variable correspondant à l'adresse de la mémoire en 
cours d'exploration ; on l’initialise donc à la valeur de la première 
adresse du programme à explorer, soit la valeur normale du 
TXTTAB +1. 
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| va être la variable qui va compter le nombre d'étiquettes où se 
trouve l'ordre BASIC recherché ; on l’initialise à O. 

AD sera la variable contenant l'adresse du début de l'instruction 
suivante, on l'initialise donc à TXTTAB +1. 


11044 et 11050 


Nous avons vu (voir Chapitre 3) qu'une instruction commençait 
par la longueur de l'instruction dans les mémoires ; nous calculons 
l'adresse de l'instruction suivante, cette adresse nous servira 
ultérieurement. 


11054 et 11060 


Les deux mémoires suivantes correspondent au numéro d’étiquette ; 
nous calculons donc la valeur de l'étiquette et nous la stockons dans 
la variable ET. 


11070 


Nous l’inscrivons alors à l’écran pour informer l'opérateur de l’évo- 
lution du programme. 


11080 et 11090 


Nous incrémentons la variable T (adresse de la mémoire à explo- 
rer) de trois unités, puis d’une unité, puisque nous venons d’exploi- 
ter les quatre premières mémoires ; cette incrémentation est faite en 
deux fois, de manière à pouvoir réutiliser l’incrémentation d’une unité 
au cours de la boucle d'exploration d’une instruction. 

Ensuite nous lisons la valeur contenue par la mémoire d'adresse 
T, valeur que nous mettons dans la variable X (X-PEEK(T)). 


11094 et 11100 


À partir du moment où nous rencontrons un REM, soit le token 
de valeur 197, le reste de l'instruction ne peut pas contenir d'ordre 
BASIC ; nous effectuons dans ce cas un saut à l'étiquette n° 11050 
après avoir donné à notre variable T la valeur de l'adresse de début 
de l'instruction suivante pour continuer l'exploration. 
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11104 et 11120 


Lorsque nous rencontrons le code ASCII 34, soit ‘, nous savons 
que les codes ASCII qui vont suivre correspondront à du texte en 
alphanumérique. Nous pouvons donc passer rapidement sur les 
mémoires suivantes jusqu’à ce que nous rencontrions de nouveau 
le code ASCII 34 qui signale la fin du texte ; ces ordres permettent 
d'accélérer le programme mais ne sont pas indispensables à notre 
exploration actuelle (ils le seront par contre en recherche des 
variables). 


11124 à 11140 


Nous avons vu au Chapitre 3 que le début d'une variable était 
signalé par un octet égal à 13, 2 ou 3 ; si nous rencontrons le début 
d'une variable, nous éliminons les deux octets qui correspondent à 
son adresse de stockage (qui peuvent avoir des valeurs supérieures 
à 128), puis tous les octets suivants jusqu'à ce que l’on rencontre 
l’octet supérieur à 128 correspondant au dernier caractère de la varia- 
ble. Le but de cette opération est d'éliminer tous les octets qui peu- 
vent être supérieurs à 128 et qui ne sont pas des tokens. Nous conti- 
nuons ce travail avec les constantes. 


11144 à 11170 
Nous avons vu au Chapitre 3 que le début d'une constante est 
signalé par : 
°_25 pour une variable stockée sur un octet ; cet octet peut être supé- 
rieur à 128, nous le sautons donc. 


e 26, 27, 28, 29 où 30 pour une variable stockée sur deux octets ; 
ces octets peuvent être supérieurs à 128, nous les sautons. 


° 31 pour une variable stockée sur cinq octets qui peuvent être supé- 
rieurs à 128, nous les sautons. 


e Les autres valeurs possibles pour les constantes sont inférieures à 
128 ; elles ne gêneront pas le déroulement du programme. 


11174 à 11190 


Nous avons vu au Chapitre 3 que la fin d’un programme BASIC 
se reconnaissait au fait que quatre mémoires successives contiennent 


79e 


la valeur 0 ; compte tenu de nos autres tests, il suffit d'en avoir trois 
successives nulles, c'est ce que nous testons ici. 

Si c'est la fin du programme, nous allons en 12010 où se trouve 
le programme d'édition du résultat de notre recherche. 


11194 et 11200 


Nous testons de même si nous sommes à la fin d’une instruction 
(identifiée par un O). 

Dans le cas de fin d'instruction, nous allons en 11050 pour l’explo- 
ration de l'instruction suivante. 


11204 et 11210 


Nous finissons par le test sur la valeur du token recherché ; si nous 
en avons trouvé un, nous stockons la valeur de l'étiquette dans A(1), 
puis nous incrémentons | d’une unité. 


11220 


Et nous retournons à l'instruction 11090 qui va incrémenter T d'une 
unité et continuer l'exploration de l'instruction. 


PRÉSENTATION DES RÉSULTATS 


Nous allons implanter la présentation des résultats entre les 
étiquettes 11999 et 20000 ; en voici le listing : 


11999 REM soso eos ssmns nn nsc sueuseees 
12008 REM EDITION DES RESULTATS 
12001 REM .....scsronesrmees eee ess ss sn nseseueseuece 
12819 CLS 

12826 LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 

12836 LOCATE 5,18 : PRINT "A L'ECRAN ...... sure E” 

12044 LOCATE 5,14 : PRINT "A L'IMPRIMANTE + ECRAN .... 1" 

12858 LOCATE 5,28 : PRINT "TAPER VOTRE CHOIX LE/1)" 

128066 R$=INKEYS 

12874 R$S=INKEYS : IF R$="" THEN 12470 ELSE R=ASC(R$#) 

12688 IF R=é69 THEN 13618 

12690 IF R=73 THEN 14616@ 

12108 GOTO 12078 

12999 REM sssecése ae es eserete s ours do 10 cvs ere agile 81e is éeeler ones ne se léie aie eee à ee 8.2 
13606 REM SORTIE ECRAN 
LIOO LE REM : Si ereserata ee tona sente ss i8 lee lee see plate gargue.e ea Qioia sn das eeié d:éisieis 86e 00 etes 
13816 CLS 

13620 LOCATE 3,1 : PRINT "ETIQUETTE DES INSTRUCTIONS CONTENANT " 

13830 LOCATE 17,3 : PRINT ASCRR) 

13840 IF I=@ THEN LOCATE 17,18 : PRINT "AUCUN" : GOTO 136688 
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13050 FOR J=1 TO I STEP 4 

13866 PRINT USING "H#HHHHHH" ;ACJ) ;ACJ+1) ;ACJ+2) ;ACJ+3) 

13670 NEXT J 

13888 R$=INKEYS 

13890 R$=INKEYS : IF R$="" THEN 13698 

13180 GOTO 15810 

LIT REM muse vennmmuus asseoir en sé douanes ne tes de es 
14866 REM SORTIE ECRAN + IMPRIMANTE 
AGIT REM sai see ie à an ee ne nd ee en nn SR UE en OR Que e den SE NE eee E 
14818 CLS 

14828 LOCATE 8,8 : PRINT "ALLUMER L'’IMPRIMANTE" 

14030 LOCATE 7,12 : PRINT "PUIS ENFONCER <RETURN>" 

14846 LOCATE 17,16 : INPUT 2$ 

14856 PRINT #8,"ETIQUETTE DES INSTRUCTIONS CONTENANT" 

14866 PRINT H8,:PRINT H#8,A$CRR)D :PRINT #8,:PRINT #8, 

14870 IF I1=@ THEN PRINT #8," —--— AUCUN ---" : GOTO 13616 

14686 FOR J=1 TO I STEP 4 

14890 PRINT H8,A(J) ,A(J+1) ,ACJ+2) ,A(J+3) 

14186 NEXT J 

14118 GOTO 13810 

TASTTR RE Gén ie ns ee Se nv 8 mn RES aide ve CU ee nm en Sens ee sue evene 
15088 REM QUITTER OU RECOMMENCER 
ISPRT REM Laurens dates ecie te mine SN em ee OS DC MAN EN MERE 
15818 CLS 

15828 LOCATE 8,6 : PRINT “DESIREZ-VOUS EXPLORER" 

15838 LOCATE 11,18 : PRINT "UN AUTRE TOKEN" 

15848 LOCATE 12,15 : PRINT “COUI/NON] :" 

195858 R$=INKEYS 

15060 R$=INKEYS : IF R$="" THEN 15066 ELSE R=ASC(R#$) 

15078 IF R=79 THEN RUN 

15880 IF R=78 THEN END 

15890 GOTO 15848 

15099 REM ....... sn onessseueees css sese eme neesesnsnesesese 


12000 


Un REM pour rappeler le but du morceau de programme qui va 
suivre. 


12010 


Nettoyage de l'écran. 


12020 à 12050 


Réalisation du menu permettant de choisir le type d'édition : écran 
ou imprimante + écran. 


12060 à 12070 


Interrogation du clavier comme pour le module précédent. 


12080 


Si la réponse est E code ASCII 69, on se branche en 13010 pour 
l'édition à l'écran. 


= TA 


12090 

Si la réponse est | code ASCII 73, on se branche en 14010 pour 
l'édition sur l'imprimante. 
12100 

Si l’on arrive à cette instruction, c'est qu’on n’a obtenu aucune des 
réponses attendues ; on retourne donc à l'interrogation du clavier. 
13000 


Un REM pour rappeler le but du programme qui va suivre. 


13010 


Nettoyage de l'écran. 


13020 
Affichage du titre. 


13030 


Affichage de l’ordre qu’on vient de rechercher à l’aide de la varia- 


ble A$. 


13040 


Si cet ordre n'existe pas dans le programme (soit 1-0), on affiche 
le message ‘AUCUN’. 


13050 à 13070 


Boucle en J pour afficher les étiquettes trouvées ; on en affiche qua- 
tre par ligne grâce à STEP 4 ; la valeur finale de la boucle est |, qui 
est le nombre d'étiquettes trouvées ; on utilise un PRINT USING pour 
cadrer les nombres. En utilisant cette méthode, si le nombre d'éti- 
quettes affichées n’est pas un multiple de 4, nous trouverons des 0 
sur la dernière ligne. L’élimination de ces 0 compliquerait inutilement 
le programme, car ils ne gênent pas l'exploitation du résultat. 


13080 à 13100 


Attente qu’une touche soit enfoncée pour continuer le programme 
en 15010. Cela permet la lecture des résultats après l'affichage. 


7bE 


14000 


Un REM pour rappeler le but du programme qui va suivre. 


14010 


Nettoyage de l'écran. 


14020 à 14030 


Message pour rappeler qu'il ne faut pas oublier d'allumer 
l'imprimante. 


14040 


L'ordre INPUT Z$ arrête l'exécution jusqu’à ce que l’on ait enfoncé 
la touche RETURN. 


14050 et 14060 


Les ordres PRINT #8, envoient le titre sur l'imprimante, puis le nom 
de l’ordre qui a été recherché (variable A$). 


14070 


Message spécial pour le cas où 1=0 ; pas d'instruction contenant 
l’ordre, puis branchement en 13010 pour éditer à l'écran. 


14080 à 14100 


Boucle en } identique à celle rencontrée aux instructions 
13050/13070 ; mêmes remarques. 


14110 


On part en 13010 pour compléter par une édition à l'écran. 


15010 


Nettoyage de l'écran. 


15020 à 15040 


Menu pour la suite des festivités : on recommence avec O (oui), 
on arrête avec N (non). 
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15050 à 15060 


Interrogation du clavier. 


15070 


Si la réponse est O code ASCII 79, on repart au début en 10050 
pour choisir un ordre. 


15080 


Si la réponse est N code ASCII 78, on termine le programme. 


15090 


Si la réponse est différente de O ou N, on réinterroge le clavier 
en allant en 15030. 


Nous introduisons ce programme au TXTTAB habituel, nous le met- 
trons à l’endroit adéquat ultérieurement. 

Exécution par RUN ; auto-exploration du programme, ce qui vous 
permet de vérifier son bon fonctionnement. 

Quant ce premier programme fonctionne, vous êtes prêts à passer 
au Chapitre 6. Vous devez cependant vérifier que le LOMEM est bien 
positionné. Si vous n'avez pas la même valeur que nous, retirez ou 
ajoutez des espaces dans les ordres pour obtenir un LOMEM de 6319, 
cela vous évitera des complications quand nous serons arrivés au 
Chapitre 7. 


ST 


PROGRAMME DE RECHERCHE 
DE VARIABLES 


Le programme, que nous appellerons VARIABLE, va comporter les 
étapes suivantes comme pour le programme de recherche d'ordres 


BASIC : 


1. Un menu qui permettra de choisir le type de variables à chercher. 
Selon le choix effectué (réponse 1, 2, 3, 4, 5 ou 6), le programme 


s'orientera vers : 


e le module 22000 pour traiter les variables entières ; 

e le module 23000 pour traiter les variables réelles ; 

e le module 24000 pour traiter les variables alphanumériques ; 

e le module 25000 qui traitera les variables dimensionnées entières ; 
e le module 26000 qui traitera les variables dimensionnées réelles ; 


e le module 27000 qui traitera les variables dimensionnées alpha- 
numériques. 


Ces six programmes de traitement feront appel à un ensemble de 
programmes d'exploration, sensiblement analogues à ceux que nous 
venons de réaliser au Chapitre 5, et qui seront implantés sous forme 
de sous-programmes entre les étiquettes 21000 et 21999. 


2. Un programme d'édition des résultats qui sera géré par les 
modules : 


28000 


29000 
30000 


Menu qui donne le choix entre l'écran ou l'écran et l’impri- 


mante comme périphérique de sortie des résultats. 


Pour la sortie ECRAN. 
Pour la sortie ECRAN + IMPRIMANTE. 


Nous allons maintenant donner le listing des différentes parties de 
ce programme et les explications correspondantes. 


MENU 


19994 
17996 
19998 
26868 
Zaa1g 
28828 
26634 
26648 
26858 
288648 


REM 
REM 
REM 
TXTTAB=368 
DIM B$(25) 
CLS 

LOCATE 8 
LOCATE 5 
LOCATE 5 
LOCATE 5 


PROGRAMME DE RECHERCHE DE VARIABLES 
TXTTAB=111+ 1x256= 367 
LOMEM=148+ 36*x256= 9356 


FOR 1=1 TO 25 : B#(I1)="" : NEXT 1! 


a 


: PRINT "CHOIX DU TYPE DE VARIABLE" 
5: PRINT "ENTIERE ...sssessrososeosesse 
5 PRINT "REELLE, «55 2 4 eux 

5 PRINT "ALPHANUMERI QUE 
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28474 LOCATE 5,12: PRINT "ENTIERE DIMENSIONNE ........, 4" 

28084 LOCATE 5,14 : PRINT "RELLE DIMENSIONNE ...,..,...,. 9" 
26474 LOCATE S,16 : PRINT "ALPHANUMERIQUE DIMENSIONNE .. 6* 
26106 LOCATE 1,29 : PRINT "TAPER LE NUMERO DE VOTRE CHOIX [1/6]" 
28110 R#=INKEYS 

28120 R#=INKEYS : IF R$="" THEN 29126 ELSE R=ASC(R#) 

28136 IF R<49 OR R>54 THEN 28128 ELSE LOCATE 48,28 : PRINT R$& 
260146 T=TXTTAB : AD=TXTTAB : 1=6 

28158 Y=R-48 : ON Y GOTO 22810,23018,24016,25010,26010,27816 


19994 à 19998 


REM rappelant le nom et les caractéristiques du programme. 


REMARQUE 

Le LOMEM du présent programme n’est bien sûr connu qu'au terme 
de son introduction totale. 
20000 


Nous mettons la valeur du TXTTAB +1 du programme à explorer 
dans la variable TXTTAB, soit 368 dans le cas normal. 

Si vous voulez explorer des programmes implantés à un autre 
TXTTAB, il suffit de changer cette valeur. 
20010 


La variable B$(1) contiendra le nom des variables successives, d’un 
type donné, que nous allons trouver dans la recherche. Nous la dimen- 
sionnons à 25 ; si vos programmes ont plus de variables, vous pou- 
vez prendre un dimensionnement plus grand. Nous commençons par 
une mise à ‘’rien du tout” de cette variable. 

20020 


Nettoyage de l'écran. 


20030 à 20100 


Affichage du menu et du mode d'emploi à l’aide d'ordres LOCATE 
et PRINT. 


20110 à 20130 


Lecture du clavier ; R contient la valeur du code ASCII envoyé par 
le clavier. Nous testons ensuite la valeur de R; R doit être compris 
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entre 49 (code ASCII de 1) et 54 (code ASCII de 6) pour que le choix 
soit compris entre 1 et 6. Si ce n’est pas le cas, nous recommençons 
la lecture du clavier par THEN 20120 (la procédure de lecture est 
la même que pour le programme TOKEN. 


20140 


La variable T donnera le numéro de la mémoire à explorer ; nous 
l'initialisons à la valeur de TXTTAB première mémoire du programme. 
AD sera la variable contenant l'adresse du début de l'instruction sui- 
vante ; on l'initialise donc à TXTTAB +1. La variable | servira à comp- 
tabiliser le nombre de variables trouvées dans la recherche ; ce sera 
aussi l’indice du B$, nous l’initialisons à zéro. 


20150 


La variable Y =R — 48 prend la valeur 1 lorsque la réponse a été 
2 pour la réponse ‘’2””, et ainsi de suite ; elle est utilisée pour l’aiguil- 
lage qui permet d'envoyer sur le programme de recherche adéquat. 


tag 


SOUS-PROGRAMMES 


Premier sous-programme 


Ce sous-programme sert à explorer les mémoires successives et à 
faire un premier tri dans les codes ASCII trouvés dans les mémoires. 


20977 IREM sine sono s ojein sine ioruie sisvers ee ninioidre dcge où a deiu ed igieieud ace le vd te acier o ie à 0 do 
21068 REM SOUS PROGRAMMES 
ZLOOL  REM. Sn sta ieieta eoie 8 0 ae a aterate 'eatarie us 20e quara de nn Lacs 
21188 CLS : LOCATE 8,19 : PRINT "ETIQUETTE DE L’ INSTRUCT 1 ON" 
21118 LOCATE 10,12 : PRINT "EN COURS D’EXPLORATION" 


2LLLP REM: à sue susrors ais a oc roreitisnnrote niveole à sara rate ea id eo d'oreterc 0 6 018 0 ais Ve cé de 
21126 REM TEST DE FIN DE PROGRAMME 
21121 REM. sensé uns egiare d ovéisretèns nraaiaisre lits eiaiaie lé Dee rora lolo rate die eee etre , 


21138 D=PEEK(T-1) : E=PEEK(T) : F=PEEK(T+1) 

21135 IF D=8 AND E=@ AND F=@ THEN FL=-1 : RETURN 

ZT AP IREM} de 6 se ae aiacerenn aan eos ets Bu ee eng te ee nue ee CU diese Se re 
21140 REM ADRESSE DE L’INSTRUCTION SUIVANTE 
LATE IREM 5 Gien episode maso atmieneie ie dia ere Sie dréiar ete 00 0 héle2 ùeà 2 0 6 dre de à sus. 
21158 AD=PEEK(T)+256%PEEK(T+1 ) +AD 

211697 REM ..... CE 
21178 REM ETIQUETTE DE L’ INSTRUCTION 
BLIPL REM sise reene re teerenei date ra tua etes are de d'a na ed rolelr ae ee à nie de a a ete 0 
21180 ET=PEEK(T+2)+256xPEEK(T+3) 

21196 LOCATE 18,16 : PRINT ET 


21208 T=T+3 

21218 T=T+1 : X=PEEK(T) 

21217 REM: sn eue nie e onetorurane ose téte anne à le out Ve ee a BTS NE ae Due cie dia e ne 80e ot n e18 0 à 6 
21228 REM ELIMINATION DES REM 
21221: REM; sé miens eo or aious o 8e ma died e tele ele fau die lave aie. a 12,0 DOtoan gs ES .. 


21238 IF X=197 THEN T=AD : GOTO 21138 


21239 REM msn emmener nee emseseseeeesesssneueresss 
21248 REM ELIMINATION L’ALPHANUMERI QUE 
21241 REM ....... scene snsnsesesnenenneese sunsnsonesssse 


21250 IF X=34 THEN 21266 ELSE 21290 

21268 T=T+i : IF PEEK(T)<>34 THEN 21268 

21279 REM ........4 esse esse meme memes esse 
21286 REM ELIMINATION DES DATA 
21281 REM soso een een 
21298 IF X=14@ THEN 21364 ELSE 21348 

21388 T=T+1 : X=PEEK(T) 

21316 IF X=6 THEN 21348 

21328 IF X=1 THEN 21216 ELSE 2138@ 

21329 REM ..... ses eme eme nes 
21330 REM ELIMINATION DES CONSTANTES 
21331 REM mono eme enene nn nmensme es emss essence ues 
21348 T=T-(X)213 AND X<24)-2x(X=25)-3#(X)>225 AND X<31)-6#(X=31) :X=PEEK(T) 
21349 REM ... ss soon conne 
21350 REM ELIMINATION DES TOKENS DOUBLES 
21351 REM msn mme 
21368 IF X=255 THEN T=T+2 : X=PEEK(T) 

21369 REM ... soso ones nennensnsnems es sousesenssss 
21376 REM TEST DE FIN D’INSTRUCTION 
21371 REM ss rene 
21380 IF X=@ THEN T=T+1 : GOTO 21138 

21390 FL=Q : RETURN 


21100 à 21110 

Nettoyage de l'écran et affichage du message ‘ETIQUETTE DE 
L'INSTRUCTION EN COURS D'’EXPLORATION. 
21130 à 21135 


Nous commençons par le test de fin de programme que nous effec- 
tuons sur trois mémoires comme pour le programme TOKEN. De plus, 
dans le cas d’une fin de programme, nous positionnons le drapeau 
FL à la valeur —1, et nous sortons du sous-programme. 

21150 


Les deux premières adresses (T) et (T+1 ) contiennent la longueur 
de l'instruction et nous permettent de calculer l'adresse de l’instruc- 
tion suivante que nous mettons dans la variable AD. 


21180 


Les deux adresses suivantes (T +2) et (T +3) contiennent l'étiquette 
de l'instruction qui va être analysée ; nous la calculons, variable ET. 


21190 


La valeur de l'étiquette en cours d'exploration est affichée en per- 
manence. Cet affichage permet de suivre le déroulement du pro- 
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gramme et de montrer à l'opérateur que tout se passe normalement 
car, comme vous pourrez le constater, l'exécution est relativement 
lente (c’est l’un des principaux inconvénients d'un langage évolué 
comme le BASIC). 


21200 et 21210 


Nous incrémentons la variable T une première fois en 21200 de 
trois unités, puis une seconde fois d’une unité en 21210 pour sauter 
les quatre premières mémoires que nous venons d'utiliser. L’incré- 
mentation est effectuée en deux fois pour pouvoir réutiliser la seconde 
dans la boucle d'exploration. Le code ASCII trouvé dans la mémoire 
d'adresse T est stocké dans la variable X. 


21230 


Lorsque l’on trouve un REM, soit le token 197, tout ce qui suit dans 
l'instruction ne peut être qu’une remarque dans le programme ; on 
ne peut donc y rencontrer de variables. Nous passons alors à l’ins- 
truction suivante, ce qui est obtenu en posant T = AD et en effectuant 
le branchement à l'étiquette 21130. 


21250 et 21260 


Lorsque, dans une instruction, nous rencontrons le code ASCII 34, 
soit ‘’, il n’est pas nécessaire d’analyser ce qui suit jusqu’à ce que 
l’on en rencontre de nouveau un, car ‘‘ce que l’on trouve entre deux ”’ 
correspond à du texte. 


21250 à 21280 


Lorsque nous rencontrons un ordre DATA, nous pouvons aussi sau- 
ter ce qui suit jusqu’à ce que l’on rencontre soit le code ASCII zéro 
(fin d'instruction), soit le code ASCII 1 (‘‘:’’). Dans le cas de zéro, 
nous allons en 21340 continuer et arriver au branchement de fin d'ins- 
truction en 21380. Dans le cas de 1, nous continuons l'exploration 
en effectuant un branchement en 21200 qui incrémente la variable T. 


21340 


Cette équation logique nous permet de sauter tous les octets con- 
tenant la valeur des constantes, valeurs pour lesquelles il pourrait y 
avoir confusion avec le début d’une variable. Par exemple, pour X 
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compris entre 13 et 24, la constante occupe un octet ; l'expression 
logique (X > 13 AND X < 24) vaut alors —-1 et —-(X> 13 AND X < 24) 
vaut +1, valeur que nous ajoutons à la variable T. De même pour 
les autres cas. 


21360 


Le problème est le même pour la deuxième valeur d’un token dou- 
ble ; donc si nous rencontrons la valeur 255, c'est qu'il s’agit du début 
d’un token double, nous sautons l’octet suivant. 


21380 


Dans le cas d’une fin d'instruction, code ASCII zéro, nous incré- 
mentons T et nous allons en 21130 explorer l'instruction suivante. 


21390 


Si nous arrivons à cet ordre, c'est que le contenu de la mémoire 
n'est ni un REM, ni de l’alphanumérique, ni une constante, ni un token 
double ; dans ce cas, nous sortons du sous-programme en position- 
nant le drapeau FL à O pour le signaler. 


En conclusion, lorsque ce sous-programme est appelé, on en revient 
lorsque trois zéros successifs ont été rencontrés, et dans ce cas on 
positionne la variable FL à —1 pour indiquer que l'exploration est 
terminée ; ou lorsque la mémoire explorée n’est ni un REM, ni de 
l’alphanumérique, ni un DATA, ni une fin d'ordre, et dans ce cas 
la variable FL est positionnée à zéro. 


Deuxième sous-programme 


Ce sous-programme sert à stocker les variables trouvées et à ne 
stocker qu’une fois les variables de même nom. 


21399 REM sors seen esse esse sense een 
214008 REM STOCKAGE DES VARIABLES 
214681 REM mono osesn en ensns meme e ne nsmseseseseseneneneesesessss 
2141@ I=I+1 : B$CI)=VAS 

21426 FOR J=@ TO I-1 : I=I+(VAS=B#&(J)) : NEXT J 

21438 VAS="" : RETURN 


21410 


1+ 1 est la valeur du rang de la variable trouvée ; celle-ci est actuel- 
lement dans la variable VA$, on la transfère dans B$(l) après avoir 
fait 1=1+1. 


_ 85 — 


gramme et de montrer à l'opérateur que tout se passe normalement 
car, comme vous pourrez le constater, l'exécution est relativement 
lente (c’est l’un des principaux inconvénients d’un langage évolué 
comme le BASIC). 


21200 et 21210 


Nous incrémentons la variable T une première fois en 21200 de 
trois unités, puis une seconde fois d’une unité en 21210 pour sauter 
les quatre premières mémoires que nous venons d'utiliser. L'’incré- 
mentation est effectuée en deux fois pour pouvoir réutiliser la seconde 
dans la boucle d'exploration. Le code ASCII trouvé dans la mémoire 
d'adresse T est stocké dans la variable X. 


21230 


Lorsque l’on trouve un REM, soit le token 197, tout ce qui suit dans 
l'instruction ne peut être qu’une remarque dans le programme ; on 
ne peut donc y rencontrer de variables. Nous passons alors à l’ins- 
truction suivante, ce qui est obtenu en posant T = AD et en effectuant 
le branchement à l'étiquette 21130. 


21250 et 21260 


Lorsque, dans une instruction, nous rencontrons le code ASCII 34, 
soit ””, il n’est pas nécessaire d'analyser ce qui suit jusqu’à ce que 
l’on en rencontre de nouveau un, car ‘’ce que l’on trouve entre deux ”’ 
correspond à du texte. 


21250 à 21280 


Lorsque nous rencontrons un ordre DATA, nous pouvons aussi sau- 
ter ce qui suit jusqu’à ce que l’on rencontre soit le code ASCII zéro 
(fin d'instruction), soit le code ASCII 1 (‘’:’). Dans le cas de zéro, 
nous allons en 21340 continuer et arriver au branchement de fin d’ins- 
truction en 21380. Dans le cas de 1, nous continuons l'exploration 
en effectuant un branchement en 21200 qui incrémente la variable T. 


21340 


Cette équation logique nous permet de sauter tous les octets con- 
tenant la valeur des constantes, valeurs pour lesquelles il pourrait y 
avoir confusion avec le début d’une variable. Par exemple, pour X 
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compris entre 13 et 24, la constante occupe un octet ; l'expression 
logique (X > 13 AND X < 24) vaut alors —1 et —(X> 13 AND X < 24) 
vaut +1, valeur que nous ajoutons à la variable T. De même pour 
les autres cas. 


21360 


Le problème est le même pour la deuxième valeur d’un token dou- 
ble ; donc si nous rencontrons la valeur 255, c'est qu'il s’agit du début 
d’un token double, nous sautons l’octet suivant. 


21380 


Dans le cas d’une fin d'instruction, code ASCII zéro, nous incré- 
mentons T et nous allons en 21130 explorer l'instruction suivante. 


21390 


Si nous arrivons à cet ordre, c’est que le contenu de la mémoire 
n'est ni un REM, ni de l’alphanumérique, ni une constante, ni un token 
double ; dans ce cas, nous sortons du sous-programme en position- 
nant le drapeau FL à O pour le signaler. 


En conclusion, lorsque ce sous-programme est appelé, on en revient 
lorsque trois zéros successifs ont été rencontrés, et dans ce cas on 
positionne la variable FL à —1 pour indiquer que l'exploration est 
terminée ; ou lorsque la mémoire explorée n’est ni un REM, ni de 
l’alphanumérique, ni un DATA, ni une fin d'ordre, et dans ce cas 
la variable FL est positionnée à zéro. 


Deuxième sous-programme 


Ce sous-programme sert à stocker les variables trouvées et à ne 
stocker qu’une fois les variables de même nom. 


21399 REM ss enn mn ens nsc 
21400 REM STOCKAGE DES VARIABLES 
21401 REM soon semer esnnn esse 
2141@ I=I1+1 : B$CI1)=VAS 

21428 FOR J=@ TO I-1 : I=I+(VAS=B#(J)) : NEXT J 

21438 VAS="" : RETURN 


21410 


1+ 1 est la valeur du rang de la variable trouvée ; celle-ci est actuel- 
lement dans la variable VAS, on la transfère dans B$(l) après avoir 
fait 1=1+1. 
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21420 


On teste si cette variable n’a pas été déjà trouvée en la comparant 
à tous les B$(J) précédents. Si elle a déjà été trouvée, on diminue 
alors | d’une unité et elle est oubliée. En effet, l'équation logique 
(VAS =B$()) vaut —1 si VAS =B$(J), et zéro dans tous les autres cas, 
donc | n’est diminué d’une unité que si l’on rencontre un VAS =B$(J). 


21430 


Une fois ce travail terminé, on vide VA$ pour le rendre disponible 
pour la prochaine variable. 


Troisième sous-programme 


Lorsque l’on a trouvé le début d’une variable, ce sous-programme 
sert à effectuer la concaténation des lettres ou chiffres qui compo- 
sent cette variable. 


21499 REMis.sie se dorciotaie ds m'oieie eos. 1e à 8. vu dieu cie jee die eee ee eee sien dvece aies 0 0 return 
21508 REM CONCATENATION DES VARIABLES 
2LOOT  REM: se ne 188 uno die nie roertre ee diaas dan on Scene ie diaie due a ah te al 6e rd de 6 0i0le 0 du ce dure 
21510 VAS=UVAS+CHRECX+128#(X)128)) 

21520 T=T+1 : X=PEEK(T) 

21530 IF PEEK(T-1)<128 THEN 21519 

21548 RETURN 


21510 


Effectue la concaténation ; l'équation logique, 128+(X > 128) per- 
met de retirer 128 au code ASCII du dernier caractère de la variable 
qui, comme nous l’avons vu au Chapitre 3, a été augmentée de 128 
par l’interpréteur. 


21520 


Incrémente T et va chercher le code ASCII suivant. 


21530 


Vérifie si le code ASCII précédent n'était pas le dernier de la varia- 
ble (soit X > 128). Si c’est le cas, on sort du sous-programme ; sinon 
on se branche en 21510 pour continuer la concaténation. 
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MODULES DE RECHERCHE 


Les six modules de recherche sont tous composés de la même 
manière ; nous expliquerons le premier en détail puis, pour les autres, 
nous donnerons simplement les différences par rapport à ce module 
de base. 


21999 REM ....ssosoosousooosssursce sn esennns mens snenes 
22088 REM RECHERCHE DE VARIABLES ENTIERES 
22801 REM ........ssouseues ns. sensor osseuses es ee co e eee uses se 
22818 NU$="ENTIERES" : VA$="" : GOSUB 21168 

22028 IF FL=-1 THEN 28818 

22838 T=T-2#x(X=3 OR X=13) : IF X<>2 THEN GOSUB 21218 : GOTO 22628 
22848 T=T+2 : GOSUB 21518 

22058 IF X=40 THEN VA$="" : GOSUB 21238 : GOTO 22828 

22868 GOSUB 21410 : GOSUB 21238 : GOTO 22828 


22000 
REM rappelant le but du module qui suit. 


22010 


NV$ est la variable dans laquelle nous plaçons le titre de la recher- 
che effectuée pour pouvoir le rappeler au moment de l'édition des 
résultats. VAS est la variable dans laquelle nous placerons les carac- 
tères composant les variables trouvées ; nous l’initialisons donc à ‘‘rien 
du tout”’. Puis nous appelons le sous-programme situé en 21100, qui 
est le premier sous-programme, pour calculer l’adresse de l’instruc- 
tion suivante, le numéro de l'étiquette de l'instruction en cours 
d'exploration, et pour effectuer une première exploration. 


22020 


Si nous revenons du sous-programme avec le drapeau FL à —1, 
c'est que nous sommes arrivés à la fin du programme ; nous allons 
alors en 28010, vers le menu d'édition. 


22030 


Dans le cas contraire, FL est égal à zéro, et dans la variable X nous 
avons le code ASCII de la dernière mémoire explorée. Si ce code 
ASCII est égal à 3 ou 13, ce sont des variables en virgule flottante 
ou alphanumériques qui ne nous intéressent pas ; mais nous devons 
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sauter les deux octets suivants qui correspondent à l'adresse de 
stockage et qui sont de valeurs quelconques ; ce que nous effectuons 
par l'équation logique —2+(X=3 OR X= 13) qui vaut +1 pour X=3 
ou X=13. 

Nous testons ensuite si ce code ASCII est égal à 2. Si ce n'est pas 
le cas, il ne s’agit pas du début d’une variable entière ; nous appe- 
lons alors le sous-programme d'exploration pour analyser le code 
ASCII suivant, mais au niveau de l'instruction 21210. En effet, il ne 
faut pas aller au début de ce sous-programme en 21100, car entre 
21100 et 21200 nous traitons les débuts d'instructions. En 21210, nous 
trouvons l'instruction qui incrémente la variable T d’une unité. Lors- 
que nous revenons de ce sous-programme, nous retournons en 22020 
pour recommencer les mêmes tests. 


22040 


Lorsque nous arrivons à cette instruction, c’est que le code ASCII 
contenu dans X est celui d’une variable entière ; nous sautons les deux 
octets suivants pour les mêmes raisons que précédemment, et nous 
partons vers le sous-programme de concaténation en 21510. 


22050 


De retour du sous-programme de concaténation, le résultat se trouve 
dans VAS, et dans X nous avons la valeur du premier octet situé après 
la fin de la variable. Dans le cas des variables entières non dimen- 
sionnées, il ne doit pas y avoir de ‘‘(”” après la variable, donc X doit 
être différent de 40 (code ASCII de ‘‘(”) ; si X est égal à 40, cette varia- 
ble ne nous intéresse pas et nous l’effaçons avec VA$ =". Ensuite 
nous appelons de nouveau le programme d'exploration, mais en 
21210 car nous avons déjà incrémenté T dans le sous-programme 
de concaténation et mis le code ASCII de la mémoire dans X. Lors- 
que nous revenons de ce sous-programme, nous allons en 22020 
recommencer les tests. 


22060 


Lorsque nous arrivons à cette instruction, c'est que nous avons bien 
trouvé une variable entière non dimensionnée ; nous allons alors dans 
le sous-programme de stockage en 21410. Le stockage terminé, nous 
retournons au sous-programme d'exploration en 21230 carT ne doit 
pas être incrémenté, il l’a déjà été dans le sous-programme de 
concaténation. 
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22799. REM or arm ont mie nie n'a rs tes aiars e'0ts es eco er 8/e ei nuare dire: die in ait eau dié 2 Lieie. ee. 0 dla 


23086 REM RECHERCHE DE VARIABLES REELLES 
23001, REM 155% nu sono en 2 mere. core ed es aile Do leioe saone ie lets 018 gta t ein: Giant da eee 
23019 NU$="REELLES" : VAS="" : GOSUB 211688 


23828 IF FLl=-1 THEN 28616 

23830 T=T-2#(X=2 OR X=3) : IF X<>13 THEN GOSUB 21216 : GOTO 23828 
236040 T=T+2 : GOSUB 21510 

23056 IF X=48 THEN VA$="" : GOSUB 21236 : GOTO 23828 

238068 GOSUB 21416 : GOSUB 21236 : GOTO 23826 


23000 à 23060 


Ces instructions sont identiques à celles du module précédent, seul 
le deuxième chiffre de l'étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante où alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. 


23999 REM screens sonores esseneseueneousonessesunseseucs sus 
248808 REM RECHERCHE DE "VARIABLES ALPHANUMERI QUES 
LAOGT REP es sen den ee dé en TMS Lee SECRET US de nee Rs ss... 
24818 NU$="ALPHANUMERI QUES" : VA$="" : GOSUB 21160 


24628 IF FLl=-1 THEN 28818 

24830 T=T-2x(X=2 OR X=13) : IF X<23 THEN GOSUB 21210 : GOTO 24020 
24040 T=T+2 : GOSUB 21518 

24850 IF X=40 THEN VA$="" : GOSUB 21238 : GOTO 24020 

24868 GOSUB 21416 : GOSUB 21238 : GOTO 24828 


24000 à 24060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l'étiquette change, ainsi que le rôle joué par 
les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. 


24999 REM . scores eueesesuse 
25080 REM RECHERCHE DE VARIABLES ENTIÈRES DIMENSI ONNEES 
25001 REM ............ soso suososs 
25818 NU$="ENTIERES DIMENSIONNEES" : VA#="" : GOSUB 21108 


25028 IF Fl=-1 THEN 28016 

25830 T=T-2xCX=3 OR X=13) : IF X<>2 THEN GOSUB 21218 : GOTO 25828 
25048 T=T+2 : GOSUB 21510 

25850 IF X<)>48 THEN VA$="" : GOSUB 21236 : GOTO 25828 

25066 GOSUB 21418 : GOSUB 21230 : GOTO 25828 


25000 à 25060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l'étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Mais maintenant, nous désirons avoir 
une ‘‘(” derrière la variable, puisqu'elle est dimensionnée ; par con- 
séquent, le test fait en 25060 est inversé : c’est X < > 40, 
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25999 REM ..... Dress nes ne semences oo... 

260608 REM RECHERCHE DE "VARIABLES REELLES "DIMENSI ONNEES 
26901 REM ....sooocnccse sonne. sn sus 
26818 NU$="REELLES DIMENSI ONNEES" : VAS= * ï : "60su8 21108 

266028 IF FL=-1 THEN 28818 

26038 T=T-2x(X=2 OR X=3) : IF X<>13 THEN GOSUB 21218 : GOTO 26828 
26648 T=T+2 : GOSUB 21518 

26858 IF X<>4@ THEN VA$="" : GOSUB 21236 : GOTO 268208 

26868 GOSUB 21418 : GOSUB 21238 : GOTO 26928 


26000 à 26060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l’étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante où alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Le test fait, 26060 est toujours 
X< >40,. 


26999 REM scsoscommans sense sosssesensessssessscnense ee ss 
27088 REM RECHERCHE DE VARIABLES ALPHANUMERI QUES DIMENSIONNEES 
27881. REM: ss causa messe 0e ee à10.0 010 00 60 60 010016 6ei0,s 0.6.0 .6 00 618 01e sn sssse 


27818 NUS= * ALPHANUMERI QUES DIMENSI ONNEES" : ‘VAs="" : GOSUB 211008 
27026 IF FL=-1 THEN 28018 

27038 T=T-2*x(X=2 OR X=13) : IF X<>3 THEN GOSUB 21218 : GOTO 27820 
27648 T=T+2 : GOSUB 21518 

276050 IF XC>4Q THEN VA$="" : GOSUB 21230 : GOTO 27828 

27668 GOSUB 21418 : GOSUB 21238 : GOTO 27828 


27000 à 27060 


Ces instructions sont identiques à celles du module précédent ; seul 
le deuxième chiffre de l'étiquette change ainsi que le rôle joué par 
les variables entières, en virgule flottante ou alphanumériques, et les 
codes ASCII associés : 2, 3 et 13. Le test fait, 27060 est toujours 
X< > 40. 


ÉDITION DES RÉSULTATS 


27999 REM ss con essences essences nssnesesesene essences 
280068 REM EDITION DES RESULTATS 
28081 REM ....... ess sunsssenossssesessseeeesssseueneueeucsee ous 
28818 CLS 

28029 L$="------ “os E$="xxxxx" 


28830 FOR K=I+1 TO 25 : B$(K)="" : NEXT K 

28848 LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 

28058 LOCATE 5,18 : PRINT "A L'ECRAN .......,,,. .... E" 
28864 LOCATE 5,14 : PRINT "A L'’IMPRIMANTE + ECRAN sus I" 
28878 LOCATE 5,28 : PRINT “TAPER VOTRE CHOIX LE/1]" 

28088 R#=INKEYS 

28878 R$=INKEYS : IF R$="" THEN 28098 ELSE R=ASC(R#) 
28108 IF R=é9 THEN 29818 

28116 IF R=73 THEN 3@081@ 

28126 GOTO 28898 
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28999 REM . conso soononsssenesmrsnessee nn nsnesessssneneseuses 


29008 REM SORTIE ECRAN 

29081 REM ...... nn nes nsnsse uns. ss. soso 

29818 CLS 

29828 LOCATE 1,1 : PRINT L$ : LOCATE 1,2 : PRINT E$;" NOMS DES VARIABLES 
"3E$ 


29038 P=INT((48-LENCNUS) )/2) 

29048 PRINT TABÇCP) ;NU$ : PRINT L$ 

29058 IF 1=8 THEN LOCATE 17,12 : PRINT "AUCUNE" : GOTO 29898 

29069 FOR J=1 TO I : C#=B$(J) 

29070 IF Y=3 OR Y=6 THEN C$=C$+"#" 

29088 PRINT C$ : NEXT J 

29098 R$=INKEY$ : IF R$="" THEN.29898 

29108 GOTO 31818 

29999 REM ....... sonore nenene nero sunoneus.e sus. 
30080 REM SORTIE ECRAN + IMPRIMANT 
308001 REM ...... cnrs renonssnnssenesese uns sonores 
30818 CLS 

30828 LOCATE 18,6 : PRINT "ALLUMER L'’IMPRIMANTE" 

30838 LOCATE 7,14 : PRINT "PUIS TAPEZ SUR UNE TOUCHE" 

38048 R$=INKEY$ : IF R$="" THEN 38040 

30858 PRINT #8, L$ : PRINT #8, E$;" NOMS DES VARIABLES "3E$ 
38068 P=INT(C(48-LENCNUS) )/2) 

38078 PRINT H#8,TABCP);NUS : PRINT #8,L$ 

38088 IF I=06 THEN PRINT #8, : PRINT #8,"AUCUNE" : GOTO 29898 

30090 FOR J=1 TO I : C#=B#$(J) 

3801808 IF Y=3 OR Y=é THEN C$=C$+"#" 

30110 PRINT #8,C$ : NEXT J 

38128 GOTO 29818 


Comme pour le programme de recherche de TOKEN, nous don- 
nons la possibilité d'afficher les résultats soit à l'écran, soit sur impri- 
mante plus écran. 


28010 


Nettoyage de l'écran. 


28020 


L$ et E$ permettront de simplifier la réalisation du cadre de pré- 
sentation des résultats. 


28030 


Remet à zéro les variables B$ qui ont stocké une variable rencon- 
trée deux fois, afin de ne pas la voir s'imprimer deux fois dans la boucle 
d'écriture (voir boucle d'affichage 29060 à 29080). 


28040 à 28070 


Présentation des messages de choix du menu. 


28080 à 28090 


Interrogation du clavier. 


28100 et 28120 


Aiguillage en fonction du choix de l'opérateur. R=69 code ASCII 
de E, on effectue un saut à l’ordre 29010 où se trouve le programme 
d'édition à l'écran. R=73 code ASCII de |, on effectue un saut à l’ins- 
truction 30010 où se trouve le programme d'édition sur l'imprimante ; 
ce programme fera lui-même effectuer un saut en 29010 lorsqu'il aura 
terminé l'impression, pour faire l'édition à l'écran. Si R est différent 
de ces deux réponses, retour à l'interrogation du clavier en 28090. 
29010 


Nettoyage écran. 


29020 à 29040 


Présentation du titre, NV$ contient le nom du type de variable que 
l’on vient de rechercher. 


29050 

Si l’on n’a pas trouvé de variable du type recherché, soit 1=0, on 
affiche ‘AUCUNE’. 
29060 à 29080 


Boucle d'affichage des résultats, deux noms de variables par ligne. 
Si l’on a trouvé un nombre impair de variables, soit 2x*P +1, on affi- 
che aussi avec cette boucle la variable B$(2+P +1) ; c'est pourquoi 
il est nécessaire de remettre à zéro les B$(J) qui sont au-delà du rang 
de la dernière variable trouvée. 


29090 


Boucle d'attente sur le clavier, permettant de regarder les résultats 
et de passer à la suite en frappant sur n'importe quelle touche. 


29100 


Saut sur le menu final. 


30010 


Nettoyage écran. 
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30020 à 30040 


Message pour rappeler qu’il faut mettre l'imprimante sous tension, 
et boucle d'attente sur le clavier. 


30050 à 30070 


Impression du titre ; NV$ contient le nom du type de variable que 
l’on vient de rechercher. 


30080 


Si l’on n’a pas trouvé de variable du type recherché, soit 1=0, on 
imprime ‘AUCUNE’. 


30090 à 30110 


Boucle d'impression des résultats, deux noms de variables sont 
imprimés par ligne. 


30120 


On se dirige maintenant vers l'édition à l'écran. 


Nous terminons par un petit menu de clôture permettant soit de 
rechercher un autre type de variable, soit de sortir du programme. 


30999 REM ... sons ssensneres sense memes 
31006 REM QUITTER OÙ RECOMMENCER 
31001 REM ... soso esse messes essence 
31018 CLS 

31824 LOCATE 8,1Q : PRINT "DESIREZ-VOUS RECHERCHER" 

31930 LOCATE 18,14 : PRINT "UNE AUTRE VARIABLE" 

31844 LOCATE 15,18 : PRINT "LCO/N]I :" 

31058 R$=INKEYS 

31868 R$S=INKEYS : IF R#$="" THEN 31868 ELSE R=ASC(R#) 

31078 IF R=79 THEN RUN 

31084 IF R=78 THEN CLS : END 

31098 GOTO 31868 

31499 REM ...... ses esse eme esse memes eme eneeeeeeeesee 


31010 


Nettoyage de l'écran. 
31020 à 31040 
Affichage des choix du menu et mode d'emploi. 
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31050 à 31060 


Lecture du clavier. 


31070 

Si l’opérateur désire continuer, réponse O (code ASCII 79) ; on 
relance le programme par RUN. 
31080 

Si l'opérateur désire arrêter, réponse N (code ASCII 78) ; on ter- 
mine avec END. 
31090 

Retour en 31050 si l’opérateur n’a pas encore répondu, ou s’il a 


donné une réponse incorrecte. 


Vous pouvez bien sûr taper ce programme par morceaux et le sau- 
vegarder au fur et à mesure. Quand vous aurez fini de l’introduire, 
vous pourrez l'essayer directement ; il s'auto-explorera. 

Quand votre programme fonctionnera correctement, vous pour- 
rez passer au chapitre suivant. 
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LISTING DU PROGRAMME 
RECHERCHE DE VARIABLES 


19994 
19996 
19998 
26868 
28818 
28828 
26838 
28848 
28858 
26868 
26878 
28886 
206978 
280106 
28118 
26126 
28138 
28146 
28158 
28999 
21008 
21881 
21168 
21118 
21119 
21128 
21121 


REM 
REM 
REM 
TXTTAB=368 
DIM B$(25) 
CLS 

LOCATE 8, 
LOCATE 5, 
LOCATE 5, 
LOCATE 5, 


LOCATE 5,12: 


LOCATE 5,14 
LOCATE 5,16 
LOCATE 1,28 
R$=INKEYS 

R$=INKEYS : 
IF R<49 OR 
T=TXTTAB : 

Y=R-48 : ON 


REM S...s... 


REM ss... 


CLS : LOCAT 


LOCATE 16,1 

REM soso... 
REM 

REM so... 


PROGRAMME DE RECHERCHE DE VARIABLES 
TXTTAB=111+ 1#256= 367 
LOMEM=140+ 36x256= 9356 


FOR 1=1 TO 25 : B$C(I1)="" : NEXT I 


PRINT "CHOIX DU TYPE DE VARIABLE" 


F PRINT ENTIÈRE. ss sacs semences. 1" 
5. PRINT. "REELLE sms cer énssssecces 27 
: PRINT “ALPHANUMERIQUE ....,.,........ 3" 

PRINT “ENTIERE DIMENSIONNE ........, 4" 


: PRINT "RELLE DIMENSIONNE ......, ss 9" 
: PRINT “ALPHANUMERI QUE DIMENSI ONNE. .. 6" 
: PRINT "TAPER LE NUMERO DE VOTRE CHOIX [1/6]" 


IF R$="" THEN 26126 ELSE R=ASC(RS) 
R>54 THEN 20126 ELSE LOCÂTE 48,28 : PRINT R$ 


AD=TXTTAB : I1=6 


Y GOTO 22810,230168,246016,25818,26818,2781@ 

SOUS PROGRAMMES 
E 8, 18 : PRINT “ETIQUETTE DE L’ INSTRUCT I ON” 
2 : PRINT “EN COURS D'’EXPLORATION" 


21138 D=PEEK(T-1) : E=PEEK(T) : F=PEEKÇCT+1) 
21135 IF D=6 AND E=8 AND F=0 THEN Fl=-1 : RETURN 
21139 REM see ssssssesssssssss ses ses 500500000855. 


21148 REM ADRESSE DE L’INSTRUCTION SUIVANTE 
2ii4i REM 0 50855552... 


21158 AD=PEEK(T)+256%PEEK(T +1) +AD 

ZIIOT RER red eme sninnn uae fe Saone t ess rio nee ri Cover anis. 
21176 REM ETIQUETTE DE L‘INSTRUCTION 
FLITL  REM nissan éme mr eue dire 
21180 ET=PEEK(T+2)+256*xPEEK(T+3) 

21198 LOCATE 18,16 : PRINT ET 

21286 T=T+3 

21218 T=T+i : X=PEEK(T) 

L2LLIT REM sise iueies née un mie ni conte ass at sons 

21228 REM ELIMINAT I ON DES REM 
2221, REM Sens ssenstémeshn ei és CSN ue 
21238 IF X=197 THEN T=AD : GOTO 21138 

ÉLeoST RE ANR see ae manie tenace ttes enter sn où ae 
21246 REM ELIMINATION L’ALPHANUMERI QUE 
21241 REMT Se ae ne near d'a den uare een ent cn dis Di dar de de ns en d'a ed arc 6 
21258 IF X=34 THEN 21268 ELSE 21298 

21268 T=T+1 : IF PEEK(T)<)>34 THEN 21268 

21279 REM soso ones someone eseuusrens 
21288 REM ELIMINATION DES DATA 
21281 REM scene no om msn ones ess soon oser 
21296 IF X=148 THEN 21306 ELSE 21348 

21368 T=T+1 : X=PEEK(T) 


ss ssssssessesss ss es ses ss se 


21318 IF X=80 THEN 21348 

21326 IF X=1 THEN 21216 ELSE 21388 

21927 REM sssrhimusesendenutessde0 ie tes va Nino res ire 
21338 REM ELIMINATION DES CONSTANTES 
21001 REMl assises sims need srms seen éerreituaiaei ss rer 
21348 T=T-(X213 AND X<24)-2#x(X=25)-3#(X>25 AND X{31)-6#x(X=31) :X=PEEK(T) 
2LSA 7 REMISES horse senieben ses Vienne ETES NN SN MU US a des 
21358 REM ELIMINATION DES TOKENS DOUBLES 
21351 REM soso 
21366 IF X=255 THEN T=T+2 
21369 REM ss CR 
21376 REM TEST DE FIN D’INSTRUCTION 
21371 REM ........ CR 
21380 IF X=8 THEN T=T+i : GOTO 211386 

213968 FL=6 : RETURN 

2LSP7 REM: sets etes soon sesdis int eurs solodont sement at gens UT 
21488 REM STOCKAGE DES VARIABLES 
21401 RM sssssseossneuesoneessn sus senessss ones nresesne sus 
21418 I=I+1 : B$C(I1)=VAS 

21428 FOR J=6 TO I-1 : I=I+(VAS=B#CJ)) : NEXT J 

21438 VAS="" : RETURN 

21499 REM ss soso Suns sosie ose ee 06 6 © 00 onu esse sue» ue 
21508 REM  CONCATENAT I ON DES VARIABLES 
215801 REM ... ss... ... su sns o sie die es oo. suis Soie miss © 0e eu à es ee 5 a 1e 
21518 VAS=UAS + CHRS CX+ 1 28% (XD 128) ) 

21528 T=T+1 : X=PEEK(T) 

215360 IF PEEK(T-1)<128 THEN 21516 


X=PEEK(T) 


21548 
21999 
22888 
226881 

2268180 
22828 
22838 
22846 
22858 
22868 
22999 
23888 
23481 

23818 
23820 
236836 
23640 
23856 
23868 
23999 
240688 
24881 

24816 
248286 
2468386 
24848 
24858 


RETURN 


REM 2:25": "5... 22... 5:25. 
REM RECHERCHE DE VARIABLES "ENTIÈRES 
REM .... 5... 5... 5... ..... 


NUS=" ENTIERES" : VAS="" : "60sUB 21106 

IF Fl=-1 THEN 286816 

T=T-2x(X=3 OR X=13) : IF X<>2 THEN GOSUB 21218 : GOTO 22628 
T=T+2 : GOSUB 21516 

IF X=48 THEN VAS="" : GOSUB 21236 : GOTO 22826 

GOSUB 21418 : GOSUB 21236 : GOTO 22626 


REM ss cssmnsmmsoeesessussuuecs sons sssnusses s' Events nroe ie 
REM RECHERCHE DE VARIABLES REELLES 
REM soso sosousss Suns nsessussss crosses snsosrsassess . 
NUS#=" REELLES" 3 VAS=" " : GOSUB 21168 


IF FL=-1 THEN 28616 

T=T-2*x(X=2 OR X=3) : IF X<>13 THEN GOSUB 21216 : GOTO 23826 
T=T+2 : GOSUB 21518 

IF X=46 THEN VAS="" : GOSUB 21236 : GOTO 23826 

GOSUB 21418 : GOSUB 21230 : GOTO 23828 

RE ans mes  dubergndaus ses ne datés does bis NT er nU ses des ua 
REM RECHERCHE DE VARIABLES ALPHANUMERI QUES 
RE. pete desde les te is are nn area end de tie ere nt an US Ce RC + dede 
NVUS#="ALPHANUMERI QUES" : VAS="" : GOSUB 211086 

IF FL=-1 THEN 28818 

T=T-2#(X=2 OR X=13) : IF X<>3 THEN GOSUB 21218 : GOTO 24828 
T=T+2 : GOSUB 21518 

IF X=40 THEN VAS="" : GOSUB 21236 : GOTO 24820 


24868 
24999 
25868 
25881 

25818 
25828 
25838 
25848 
25858 
25868 
25999 
268688 
26681 

26818 
266828 
26836 
26648 
26858 
26868 
26999 
278688 
27861 
27818 
276828 
27838 
27648 
27858 


GOSUB 21416 : GOSUB 21236 : GOTO 24826 

REM 2... 22:00:29... 

REM RECHERCHE DE VARIABLES ENTIERES DIMENSIONNEES 

REM ses esse ss ne ses es esse ess ss 0000000... se 
="ENTIERES DIMENSIONNEES" : VAS="" : GOSUB 21186 

IF FLl=-1 THEN 28016 

T=T-2#(X=3 OR X=13) : IF X<>2 THEN GOSUB 212168 : GOTO 25628 


T=T+2 : GOSUB 21518 

IF X<>48 THEN VAS="" : GOSUB 21236 : GOTO 25828 

GOSUB 21418 : GOSUB 21238 : GOTO 25028 

REM ss... D) 
REM RECHERCHE DE VARIABLES REELLES DIMENSIONNEES 


REM ss ses sesssessssssesssssssssssssess ss esse 


NU$="REELLES DIMENSIONNEES" : VAS="" : GOSUB 21108 

IF FLl=-1 THEN 28816 

T=T-2#(X=2 OR X=3) : IF X<)>13 THEN GOSUB 21218 : GOTO 26828 
=T+2 : GOSUB 21516 


IF X<)248 THEN LVAS="" : GOSUB 21236 : GOTO 26828 

GOSUB 214168 : GOSUB 21236 : GOTO 26028 

REM 8e... 55... 
REM RECHERCHE DE VARIABLES ALPHANUMERI QUES DIMENS I ONNEES 
REM 5... 9... ss... 


NV$= * ALPHANUMERI QUES DIMENSI ONNEES" s VAS="" : GOSUB 21168 
IF FL=-1 THEN 28818 

T=T-2x(X=2 OR X=13) : IF X<>3 THEN GOSUB 21218 : GOTO 27828 
T=T+2 : GOSUB 21518 

IF X<>48 THEN LVAS="" : GOSUB 21236 : GOTO 27828 


27668 GOSUB 21418 : GOSUB 21238 : GOTO 27828 


L2ITPT REM:is cu 50 8 0 se doses eus das ee end Gran eteil oles ts 810 ete ere meet me ei sise (re 
28806 REM EDITION DES RESULTATS 
280081. REM. nes acces een did es dite: ee sed di Near ss did re gene ane en see nid aies tee Ce 06 
28418 CLS 

28029 LE="-----———— Us ES="xxxxx" 


28836 FOR K=I+i TO 25 : B$(K)="" : NEXT K 
28848 LOCATE 8,4 : PRINT “EDITION DES RESULTATS" 


28858 LOCATE 5,18 : PRINT "À L'ECRAN .....sssccsssee.. E° 
288060 LOCATE 5,14 : PRINT "À L’'IMPRIMANTE + ECRAN .... 1" 
288078 LOCATE 5,28 : PRINT “TAPER VOTRE CHOIX [LE/1]" 


28888 R$=INKEYS 

28898 R$=INKEYS : IF R$="" THEN 28896 ELSE R=ASC(RS$) 

281806 IF R=69 THEN 29818 

28118 IF R=73 THEN 38818 

28120 GOTO 28098 

20777 PEN aioésatussestineisidi ideas datent be aa 

29088 REM SORTIE ECRAN 

LrOOL. IREM veau Re ed ét Sen anni dat an es RDS Rene and Dee e 

298018 CLS 

Fe LOCATE 1,1 : PRINT L$ : LOCATE 1,2 : PRINT E$;" NOMS DES VARIABLES 
",:E$ 

279836 P=INT((48-LENCNUS) )/2) 

29048 PRINT TAB(CP)3;NUS# : PRINT L$ 

29058 IF 1=0 THEN LOCATE 17,12 : PRINT "AUCUNE" : GOTO 29898 

29068 FOR J=1 TO I : C$=B#$(J) 

29076 IF Y=3 OR Y=6 THEN C$=C$+"$" 


27086 
29898 
291686 
29999 
36080686 
38861 
36681@ 
380826 
38030 
36848 
38850 
308468 
38076 
38888 
36896 
361680 
36110 
36126 
38999 
31866 
31681 
3168018 
31828 
31630 
31846 
31058 
31866 


PRINT C$ : NEXT J 

R$=INKEYS : IF Ré$="" THEN 29096 

GOTO 31816 
TP 
REM "SORTIE ECRAN + IMPRIMANTE 
REA edit dianiessvlnete  ul at b uen en edUTae 
CLS 

LOCATE 18,6 : PRINT "ALLUMER L’ IMPRIMANTE" 

LOCATE 7,14 : PRINT "PUIS TAPEZ SUR UNE TOUCHE" 

R$=INKEYS : IF R$="" THEN 30848 

PRINT #8, L$ : PRINT #8, E$;" NOMS DES VARIABLES ",;E$ 

P= INT € (48-LENCNUS ) )/2) 

PRINT #8,TAB(P):3NUS : PRINT #8,L$ 

IF 1=0 THEN PRINT #8, : PRINT #6,"AUCUNE" : GOTO 29898 

FOR J=1 TO I : C$=B#(J) 

IF Y=3 OR Y=6é THEN C$=C$+"$" 

PRINT #8,C$ : NEXT J 


GOTO 298180 

CS ous. 
REM QUITTER "où  RECOMMENCER 
REM soso sn nee oo nee see nec edussveusr ses denses ss 
CLS 


LOCATE 8,18 : PRINT “DESIREZ-VOUS RECHERCHER" 
LOCATE 18,14 PRINT "UNE AUTRE VARIABLE" 
LOCATE 15,18 PRINT "LCO/N] :* 

R$=INKEYS 

R$S=INKEYS : IF R$="" THEN 31866 ELSE R=ASC(CRS) 


310768 IF R=79 THEN RUN 

31086 IF R=78 THEN CLS : END 

31896 GOTO 31868 

31079 REÈM ss sue eiene ete 8 ds 0e ns snssusse sus. 


PROGRAMME COMPLET DE DÉVERMINAGE 


Aux Chapitres 5 et 6, nous venons de réaliser deux programmes 
permettant d'effectuer les deux fonctions désirées pour le déverminage 
d'un programme BASIC. Il ne nous reste plus qu’à réunir ces deux 
programmes en un seul en y ajoutant un menu permettant d'accéder 
facilement à l’une ou à l’autre de ces possibilités de recherche : 


e soit la recherche d’un ordre BASIC ; 
e soit la recherche d'une variable. 


Comme vous avez pu le constater, la numérotation des étiquettes 
des programmes a été effectuée de manière que l'addition (ou plutôt 
la réunion) de ces deux programmes constitue le programme final. 

Il restera cependant quelques modifications à apporter concernant 
le positionnement des ordres DIM en tête de programme de manière 
à éviter le message d'erreur ‘’REDIMENSIONED ARRAY'’. 

La fonction MERGE — addition de deux programmes — existe sur 
l'Amstrad, mais elle pose quelques problèmes sur les programmes 
que nous venons d'écrire (voire sur des programmes beaucoup plus 
réduits). Nous réaliserons cette fonction très simplement à l’aide de 
quelques PEEK et POKE, puisque les mouvements de TXTTAB et de 
LOMEM n'ont plus aucun secret pour vous. 


MERGE DE DEUX PROGRAMMES 


Nous allons choisir à titre d'exemple deux programmes très courts. 
Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 
Ensuite, introduisons le programme suivant que nous appelons 
CH7-P1 : 


18 REM CH7-P1 
CLS 
38 FOR I=1 TO 2 


48 PRINT "CECI EST LE PROGRAMME 1" 
SG PRINT " 


Obligatoirement pour ce programme, le TXTTAB est le TXTTAB nor- 
mal, soit 367. 
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Le LOMEM vaut 481, ce qui se vérifie en tapant : 


PRINT PEEK(44675) Réponse : 225 
PRINT PEEK(44676) Réponse : 1 
LOMEM - 225 + 1+256-481 


Ne faites surtout pas RUN et sauvegardez ce programme en faisant : 
SAVE ‘’CH7-P1" 


Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 
Introduisons maintenant le Programme 2, que nous appelons 
CH7-P2. 
1@Q REM "CH7-F2" 
110 FOR J=1 TO 3 
124 PRINT "CECI EST LE PROGRAMME 2" 
130 PRINT Mé+t+++++++t+++++tt+#++++t++" 


148 NEXT J 
1580 END 


Obligatoirement pour ce programme aussi, le TXTTAB est le TXTTAB 
normal. 
Ne faites surtout pas RUN et sauvegardez ce programme en faisant : 


SAVE “CH7-P2" 


Effectuons un RESET de l’Amstrad avec CTRL+SHIFT+ESC, pour 
être certains des valeurs présentes en mémoire. 

La fonction MERGE consiste à charger simultanément en mémoire 
deux programmes (CH7-P1 et CH7-P2) et à les mettre bout à bout 
pour ne faire qu’un seul programme. 

Effectuons maintenant le chargement de CH7-P1 par : 


LOAD “CH7-P1" 


Ne faites surtout pas RUN. 

Plaçons maintenant le TXTTAB à la valeur du LOMEM actuel moins 
trois unités, soit 481 — 3 =478 (ou 222 partie basse et 1 partie haute : 
222+1+256=478) : 


POKE 44673,222 
POKE 44674,1 
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Le contenu de la mémoire est actuellement le suivant : 


367 0 Début de programme. 


368 15 Longueur de la première 
369 0 instruction de CH7-P1. 


379 10  Étiquette de la première 
371 O0 instruction de CH7-P1. 


372 197 Token de REM. 


468 11 Longueur de la dernière 
469 0 instruction de CH7-P1. 


470 60  Étiquette de la dernière 
471 O0 instruction de CH7-P1. 


472 176 Token de NEXT. 

473 32 Espace. 

474 13 Variable en virgule flottante. 

475 O0 Future adresse de stockage 

476 O0 de la variable. 

477 201 Variable |. 

478 Quatre zéros de fin de programme. 


0 
479 O0 
480 0 
481 0 
Chargeons alors le programme CH7-P2 par : 

LOAD ‘“CH7-P2" 


Le contenu de la mémoire est maintenant le suivant : 


367 0 Début de programme. 


368 15 Longueur de la première 
369 O0 instruction de CH7-P1. 


379 10 Étiquette de la première 
321 © instruction de CH7-P1. 


372 197 Token de REM. 
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468 11 Longueur de la dernière 
469 0 instruction de CH7-P1. 


470 60  Étiquette de la dernière 
471 O instruction de CH7-P1. 


472 176 Token de NEXT. 
473 32 Espace. 
474 13 Variable en virgule flottante. 


475 O0 Future adresse de stockage 
476 0 de la variable. 


477 201 Variable |. 
478 O0 Zéro de fin d'instruction. 


479 15 Longueur de la première 
480 0 instruction de CH7-P2. 


481 100 Étiquette de la première 
482 O0 instruction de CH7-P2. 


483 197 Token de REM. 


586 6 Longueur de la dernière 

587 O0 instruction de CH7-P2. 

588 150 Étiquette de la dernière 

589 0 instruction de CH7-P2. 

590 152 Token de END. 

591 O0 Quatre zéros de fin de programme. 
592 O0 

593 O0 

594 O0 


Compte tenu de l'emplacement où nous avons introduit CH7-P2, 
le raccordement de deux programmes est effectué. Ce que nous pou- 
vons vérifier en tapant maintenant : 


LIST 


Et l’on voit apparaître : 
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16 REM CH7-Pi 

za CLS 

36 FOR I=1 TO Z 

48 PRINT "CECI EST LE PROGRAMME 1" 
SG PRINT M Û 


116 FOR J=1 TO 3 

129 PRINT "CECI EST LE PROGRAMME 2" 
139 PRINT M+ttttttttttthtttttttttts" 
148 NEXT J 

158 END 


On peut enfin faire : 
RUN 


Le programme CH7-P1 s'exécute d’abord, puis CH7-P2. 
Pour terminer, sauvegardons ce nouveau programme sous le nom 
CH7-P1 +2: 


SAVE “CH7-P1+2" 


Cette procédure est très rapide, bien plus rapide que de retaper 
un programme complet. 

Nous vous avons dit de ne pas faire RUN au cours de la manipula- 
tion pour deux raisons : 


1. pour que les adresses des GOSUB, GOTO et des variables ne soient 
pas données en valeurs absolues, car l’adressage serait faux après 
le MERGE ; 


2. pour ne pas avoir à modifier tous les LOMEM, ARYTAB... et 
HIMEM, comme nous avons été obligés de le faire au Chapitre 5. 


Nous allons utiliser cette méthode pour la jonction des programmes 
TOKEN et VARIABLE pour la réalisation d’un programme complet. 


RÉALISATION DU PROGRAMME COMPLET DE DÉVERMINAGE 


Nous repartons sur un bon pied, c’est-à-dire sur un Amstrad fraî- 
chement initialisé par un RESET. Chargeons le programme TOKEN 
par : 


LOAD “TOKEN" 


— 110 - 


puis effectuons la commande suivante : 
FOR 1=367 TO 6334 : PRINT I,PEEK(I) : NEXT | 
Nous obtenons : 


367 0 Début de programme. 


368 68 Longueur première instruction 
369 O0 du programme TOKEN. 


370 39  Étiquette première instruction 
371 197 du programme TOKEN. 
372 32 Espace. 


6265 67 Longueur dernière instruction 
6266 0 du programme TOKEN. 


6267 251 Étiquette dernière instruction 
6268 58 du programme TOKEN. 


6269 197 Token de REM. 
6270 32 Espace. 
6271 46 Code ASCII de ‘’.”. 


6329 46 Code ASCII de ‘’.”’. 
6330 46 Code ASCII de ‘’.”. 


6331 O Fin du programme 
6332 O0 TOKEN. 

6333 O0 

6334 O0 


Modifions maintenant le TXTTAB de la manière précédente en le 
plaçant au LOMEM-3, soit 6331 (187+24+256=-6331) : 


POKE 44673,187 : POKE 44674,24 
et chargeons le programme VARIABLE : 


LOAD "VARIABLE" 
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A la fin du chargement, demandons le LOMEM : 


PRINT PEEK(44675)+256+PEEK(44676) 


Réponse : 15320. 


Puis faisons : 


FOR 1=367 TO 15320 : PRINT L,PEEK {l) : NEXT | 


Nous obtenons : 


367 
368 


Début de programme. 


Longueur première instruction 
du programme TOKEN. 


Étiquette première instruction 
du programme TOKEN. 
Espace 


Longueur dernière instruction 
du programme TOKEN. 


Étiquette dernière instruction 
du programme TOKEN. 


Token de REM. 
Espace. 
Code ASCII de ‘’.”’. 


Code ASCII de ‘’.”’. 
Code ASCII de ‘’.”’. 
Fin du programme TOKEN. 


Longueur première instruction 
de VARIABLE. 
Étiquette première instruction 
de VARIABLE. 


Token de REM. 
Espace. 
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15251 67 Longueur dernière instruction 
15252 O0 du programme VARIABLE. 
15253 123 Étiquette dernière instruction 
15254 121 du programme VARIABLE. 
15255 197 Token de REM. 

15256 32 Espace. 

15257 46 Code ASCII de ‘’.”. 


15314 46 Code ASCII de ‘’.”. 
14315 46 Code ASCII de ‘’.”. 


Les mémoires 6332, 6333 et 6334 sont modifiées, et nous recon- 
naissons le début du premier ordre du programme VARIABLE. La jonc- 
tion est effectuée. 

Si nous tapons LIST, nous voyons apparaître le programme DEVER- 
MINAGE, qui est la réunion des programmes TOKEN et VARIABLE. 
Sauvegardons ce programme : 


SAVE “DEVER" 


Il ne nous reste plus qu’à compléter ce programme par son menu 
principal. Il est également nécessaire de replacer les ordres DIM. Nous 
supprimerons aussi quelques REM qui sont devenues inutiles. C’est 
ce que nous effectuons ci-après : 


1088 REM ...... soso essences 


18018 REM PROGRAMME DEVERMINAGE (LONGUEUR 7831) 
1020 REM 4546 isnss eee sie sn. pie nigiaïo sde ein a m8 0 8je 0.8 ae à aa ele ee à ele 2181000 0.6 


1188 DIM AC188) ,A$(18) ,B#(25) 
1119 DATA CLS,DATA,DIM,ELSE,FOR,GOTO,LOCATE ,PRINT ,READ 
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1128 FOR I=1 TO 9 : READ ASCII) : NEXT 1 
1138 FOR 1=i TO 25 : B$(1)="" : NEXT I 


2688 CLS 

2818 LOCATE 7,4 : PRINT “CHOIX DE LA RECHERCHE" 
2828 LOCATE 6,18 : PRINT “RECHERCHE TOKEN 1° 
2038 LOCATE 6,12 : PRINT "RECHERCHE VARIABLE 2* 


2848 LOCATE 6,14 : PRINT "FIN DE LA RECHERCHE 3" 
2659 LOCATE 4,28 : PRINT “DONNER LA REFERENCE 1,2 OÙ 3" 
2869 R$=INKEYS 

2078 R#$=INKEYS : IF R$="" THEN 2070 ELSE 2088 

2080 R=ASC(R$S) : IF R<49 OR R>51 THEN 2858 

2098 IF R=51 THEN END 

2180 IF R=49 THEN 18888 ELSE 28090 


1000 à 1020 


REM pour rappeler le titre du programme et son implantation en 
mémoire. 


1100 à 1130 


DATA et DIM sont replacés en début de programme, ainsi que l’ini- 
tialisation des variables. 


2000 à 2100 


Menu traditionnel en tête de programme. Branchement en 10000 
pour la recherche de tokens ; branchement en 20000 pour la recher- 
che de variables, ou fin de l’utilisation du programme. 


Nous supprimons la plupart des REM, soit les étiquettes : 


PFTé —- 777 —- 16416 - 16424 - 14434 - 1004 - 10777 - 11808 
11@@1 - 11&@44 —- 11645 - 11846 - 11@54 - 11855 - 11056 - 11094 
11895 - 11476 — 111@4 —- 11185 - 11186 - 11124 - 11125 - 11126 
11144 — 11145 — 11146 - 11174 - 11175 - 11176 - 11174 — 11195 
11176 - 11244 - 11285 - 112@é - 11997 - 12@@0 - 12681 - 129979 
1300û - 13461 —- 139997 - 1406@ - 14@@1 - 14977 - 15606 - 1581 
15497 —- 19796 - 19978 - 20014 - 20797 - 21864 - 21041 - 21119 
21129 -— 21121 - 21139 - 21148 - 21141 - 21169 - 21178 - 21171 
21219. 21229 - 21221 - 21299 — 21244 - 21241 - 21279 - 21268 
21281 - 21329 - 21330 - 21331 - 21349 - 21354 - 21351 - 21369 
213974 - 21371 - 21397 - 2140@ - 214@6 - 214@1 - 21477 - 21500 
21501 - 21999 - 226606 - 22661 - 22999 - 236606 - 23041 - 23999 
24464 —- 24481 - 24997 - 25000 - 25061 - 25777 - 26004 - Zé0a1 
26777 - ZFU6G - 27661 - 27779 - 26006 - 2SGQ1 - 289799 - 29600 
27461 - 27779 - 30066 - 36681 - 34777 - 31008 - 31881 - 31499 
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Attention cependant de ne pas effacer des REM qui serviraient de 
branchement. L’encombrement du programme est ainsi réduit et la 
rapidité d'exécution s’en trouve améliorée. 

Pour terminer, nous modifions comme suit les instructions : 15070, 
15080, 31070 et 31080, pour effectuer un branchement à l'endroit 
adéquat lorsque l’on désire refaire une exploration de token ou une 
exploration de variable, ou bien retourner au menu principal. 


15070 IF R-79 THEN 10000 
15080 IF R-78 THEN 2000 
31070 IF R=-79 THEN 20000 
31080 IF R-78 THEN 2000 


Nous pouvons alors tester ce programme qui s’auto-analyse, après 
l'avoir sauvegardé bien sûr. 


PROCÉDURE DE CHARGEMENT 


Nous allons procéder comme nous l'avons expliqué au Chapitre 4. 

Tout d’abord, après un RESET de sécurité, nous chargeons norma- 
lement le programme à tester. Nous interrogeons le LOMEM ; comme 
notre programme n’explore pas les valeurs réelles d’un programme, 
il nous suffit de placer notre programme DEVERMINAGE au-dessus 
de ce LOMEM, et d'utiliser le HIMEM habituel. Et comme le pro- 
gramme n’a pas été utilisé, il suffit juste de changer la valeur du 
TXTTAB contenu dans les mémoires d'adresses 44673 et 44674, et 
la valeur du LOMEM contenu dans les mémoires d'adresses 44675 
et 44676 : le LOMEM est placé trois mémoires au-dessus du TXTTAB 
choisi. 

Si vous voulez explorer un programme qui a déjà été exécuté, vous 
devez charger le programme à explorer au TXTTAB normal, puis le 
programme d'exploration à un autre TXTTAB et à un autre HIMEM, 
repositionner le TXTTAB, le LOMEM et le HIMEM aux valeurs cor- 
respondant au premier programme. Vous exécutez le premier pro- 
gramme, puis vous repositionnez aux valeurs du programme d’explo- 
ration le TXTTAB, le LOMEM dans ses deux couples de mémoires, 
ARYTAB, STREND, FRETOP et HIMEM dans ses deux couples de 
mémoires. Enfin vous pouvez commencer l'exploration. 

Cette procédure est plus longue, mais c’est celle que vous devrez 
utiliser si vous réalisez l'extension d'exploration proposée au Chapi- 
tre 8. 
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LES EXTENSIONS DE CES PROGRAMMES 


EXTENSION DU PROGRAMME DE RECHERCHE D'ORDRE BASIC 


Vous pouvez bien sûr changer les ordres dont on peut effectuer 
la recherche à l’aide de ce programme ; pour cela, il suffit de chan- 
ger les DATA, les inscriptions dans le menu et la valeur des tokens 
correspondants à l’aide de l'Annexe C. 

Vous pouvez programmer la recherche des tokens doubles ; pour 
cela, il sera nécessaire de tester que vous avez trouvé d’abord un 
octet égal à 255, puis que l’octet suivant a la valeur adéquate. 

Vous pouvez aussi compliquer un peu le programme lors de la 
recherche des GOTO et des GOSUB en stockant, en plus de l’éti- 
quette où apparaît l’ordre, l'étiquette de branchement de l’ordre 
GOTO où GOSUB. Il est cependant nécessaire de faire attention au 
fait que le BASIC de l’Amstrad admet l’ordre IF... THEN 100 ELSE 
200 dans lequel le GOTO est implicite. 


EXTENSIONS DU PROGRAMME DE RECHERCHE DE VARIABLES 


Tout d’abord, il peut être intéressant de mémoriser l'étiquette 
d'apparition des variables au cours de la recherche. Ou après la 
recherche, pour une variable donnée, de trouver les numéros d’'ins- 
tructions qui contiennent cette variable. 

On peut programmer une recherche des variables et de leurs valeurs 
associées en calculant lesdites valeurs à partir des codes ASCII trouvés 
entre LOMEM/ARYTAB, ARYTAB/STREND et HIMEM/FRETOP (voir 
Chapitre 3). 

On peut aussi rechercher non pas les variables qui se trouvent dans 
les instructions BASIC, mais les variables effectivement utilisées par 
le programme lorsqu'il est exécuté. Pour cela, il est nécessaire d’explo- 
rer, après un RUN, la zone LOMEM/ARYTAB, ARYTAB/STREND et 
HIMEM/FRETOP, comme nous l'avons fait au Chapitre 3, et de la déco- 
der. Dans ce cas, l'implantation du programme de recherche doit 
être au-dessus de STREND, et il est nécessaire de protéger la zone 
HIMEM/FRETOP au moment de l'exécution du programme de recher- 
che, ce qui peut être fait au moment du chargement en reposition- 
nant HIMEM. Nous avons vu au Chapitre 7 comment charger les 
programmes. 
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PROGRAMME DE DÉVERMINAGE 


1Q0G REM rss ssrseesesnsenssssnuusus ns. 
1618 REM PROGRÉMME DEVERMINAGE € LONGUEUR | 7831) 
FDAR REMT Hana ne nee den Ho n TR Dretve Leds ee den Le DE Sn dd aies De de de Gate 
1168 DIM ÀA(186) ,A#(C18), :B$(25) 

1116 DATA CLS, DATA, DIM,ELSE,FOR,GOTO,LOCATE , PRINT ,READ 

1126 FOR I=1 TO 9 3: READ ASC1) 5: NEXT I 


1136 FOR I=i TO 25 : B$C1)="" : NEXT 1 

2666 CLS 

2814 LOCATE 7,4 : PRINT "CHOIX DE LA RECHERCHE" 
2628 LOCÂTE 6,18 : PRINT "RECHERCHE TOKEN 1° 
26834 LOCÂTE 6,12 : PRINT "RECHERCHE VARIABLE 2" 
2844 LOCÂTE 6,14 : PRINT "FIN DE LA RECHERCHE 3" 


2658 LOCATE 4,26 
2668 R$=INKEYS 
2876 R$=INKEYS : IF R$="" THEN 2678 ELSE 2088 
2084 R=ASC(RS) : IF R<49 OR R>51 THEN 2850 
26974 IF R=51i THEN END 

2106 IF R=49 THEN 10600 ELSE 2000@ 


PRINT "DONNER LA REFERENCE 1,2 OÙ 3" 


9994 REM PROGRAMME DE RECHERCHE DE TOKEN 
10009 TXTTAB=368 

18856 FOR I=i TO 166 : ACI)=9 : NEXT I : CLS 

16868 LOCATE 7,1 : PRINT "CHOIX DU TOKEN CHERCHE :" 


1867@ LOCATE 16,4 : PRINT "CLS 1" 
16688 LOCÂTE 16,6 : PRINT "DATA 2° 
18876 LOCÂTE 16,8 : PRINT "DIM 3" 
181@8 LOCATE 16,18 : PRINT "ELSE 4" 


14118 LOCÂTE 16,12 : PRINT "FOR 9" 


ig120 
18136 
18146 
16156 
19168 
18176 
14186 
16190 
18266 
16216 
19228 
18238 
11816 
11826 
116836 
11648 
11850 
11868 
11876 
11886 
11890 
11166 
111180 
11128 
11138 
11146 
11150 
11166 


LOCATE 16,14 : PRINT "GOTO é" 
LOCATE 168,16 : PRINT "LOCÂTE F7 
LOCATE 16,18 : PRINT "PRINT 8" 
LOCATE 168,268 : PRINT "REÂAD 7 


LOCATE 1,23 : PRINT "TAPER LE NUMERO DU TOKEN CHERCHE [1/9]" 
R$=INKEYS 

R&=INKEYS : IF R$="" THEN 160186 ELSE R=ASC(R#) 

IF R<49 OR R>57 THEN 16186 ELSE LOCATE 40,23 : PRINT R$& 
TK=6 

TK=-138x(R=49) -146xCR=5G)-147#CR=S1)-151xCR=52) -158x(R=53) 
TK=TK-16@xCR=54) -167#CR=5S)-191x(R=5S6) -195XxCR=57) 
RR=R-48 

CLS 

LOCATE 8,1G:PRINT "ETIQUETTE DE L’INSTRUCTION" 

LOCATE 16,12:PRINT "EN COURS D’EXPLORATI ON" 

T=TXTTAB : 1=6 : AD=TXTTAB 

AD=PEEK(T) +256%xPEEK(T +1) +AD 

ET=PEEK(T+2)+256xPEEK(T+3) 

LOCATE 18,16 : PRINT ET 

T=T+3 

T=T+1 : X=PEEK(T) 

IF X=197 THEN T=AD : GOTO 11685@ 

IF X=34 THEN GOTO 11126 ELSE GOTO 11136 

T=T+1 : IF PEEK(T)<>34 THEN GOTO 11126 

IF X<>13 AND X<>2 AND X<23 THEN GOTO 11158 ELSE T=T+2 
T=T+i : IF PEEK(T)<129 THEN 11148 ELSE T=T+i : X=PEEK(T) 
IF X=25 THEN T=T+1 : GOTO 11690 

IF X225 AND X<31 THEN T=T+2 : GOTO 11896 


11178 
11184 
11196 
112686 
11210 
11226 
12618 
12626 
12830 
1264@ 
12656 
12464 
12670 
12688 
12894 
12166 
13818 
13626 
13836 
13846 
13054 
13860 
13876 
1388ü 
13698 
13166 
14816 
14826 


IF X=31 THEN T=T+5 : GOTO 116976 
D=PEEK(T): E=PEEK(T+1) : F= PEEK(T+2) 
IF D=6 AND E=6 AND F=6 THEN GOTO 12816 
IF X=6 THEN T=T+1 : GOTO 11456 

IF X=TK THEN I=I+1 : ACI)=ET 


GOTO 11998 

CLS 

LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 

LOCATE 5,18 : PRINT "A L'ECRAN .. ss sscooumesss . E" 
LOCATE 5,14 : PRINT "4 L'IMPRIMANTE + ECRAN .... 1" 
LOCATE 5,28 : PRINT "TAPER VOTRE CHOIX LE/1]" 


R=INKEYS 

RS=INKEYS : IF R$="" THEN 128076 ELSE R=ASC(R#) 

IF R=69 THEN 13618 

IF R=73 THEN 14616 

GOTO 12676 

CLS 

LOCATE 3,1 : PRINT "ETIQUETTE DES INSTRUCTIONS CONTENANT" 
LOCATE 17,3 : PRINT 4$CRR) 

IF 1=8 THEN LOCATE 17,16 : PRINT "AUCUN" : GOTO 138846 
FOR J=1i TO I STEP 4 

PRINT USING "#HHHRHHH" 3 ACJ) AC J+1) ;ACJ+2) ;ACJ+3) 

NEXT J 


R$=INKEYS 

RS=INKEYS : IF R$="" THEN 13498 

GOTO 15818 

CLS 

LOCATE 8,8 : PRINT "ALLUMER L'IMPRIMANTE" 


14838 LOCATE 7,12 : PRINT "PUIS ENFONCER £RETURN>" 
14848 LOCATE 17,16 : INPUT 2% 

14854 PRINT #8,"ETIQUETTE DES INSTRUCTIONS CONTENANT " 
14666 PRINT #S,:PRINT HG ,ASCRRD:PRINT #8,:PRINT #8, 
14876 IF I=6 THEN PRINT #8," —-— AUCUN ---" : GOTO 1381i@ 
14886 FÜR J=i TO I STEP 4 

14698 PRINT H8,A(CJ),.4(J+r1) ,ACJ+2) ,4A(J+3) 

141868 NEXT J 

14116 GOTO 13816@ 

15818 CLS 

15828 LOCATE 8,6 : PRINT "DESIREZ-VOUS EXPLORER" 
15834 LOCÂATE 11,18 : PRINT "UN AUTRE TOKEN" 

15648 LOCATE 12,15 : PRINT "LCOUI/NON]I :" 

15858 R$S=INKEYS 

15464 R$=INKEYS : IF R$="" THEN 158068 ELSE R=ASC(R#) 
15078 IF R=79 THEN 160048 

15686 IF R=78 THEN 2666 

15096 GOTO 15648 

199974 REM PROGRAMME DE RECHERCHE DE VARIABLES 
200808 TXTTAB=368 

268268 CLS 


26636 LOCATE 8,1 PRINT "CHOIX DU TYPE DE VARIABLE" 


26848 LOCATE 5,6 : PRINT "ENTIERE .....sssssssssossssus. 1" 
24854 LOCATE 5,8 : PRINT "REELLE ss sssssosssssssseusss 2° 
260868 LOCATE 5,10 : PRINT "ALPHANUMERIQUE ...,. sous... 3" 
26876 LOCATE 5,12: PRINT "ENTIERE DIMENSIONNE ......... 4" 


28886 LOCATE 5,14 : PRINT "RELLE DIMENSIONNE .....sssses 9" 
26696 LOCATE 5,16 : PRINT "ALPHANUMERI QUE D'IMENS 1 ONNE .. 6" 


20108 LOCÂTE 1,28 : PRINT "TAPER LE NUMERO DE VOTRE CHOIX [1/6]" 
28110 R$=INKEYS 

2812G R$S=INKEYS : IF R$="" THEN 26128 ELSE R=ASC(R#) 

28130 IF R<49 OR R)>54 THEN 28128 ELSE LOCATE 46,28 : PRINT R$ 
20140 T=TXTTAB : AD=TXTTAB : 1=8 

28158 Y=R-48 : ON Y GOTO 226016,23010,248010,2501@,260180,27010 
21106 CLS : LOCÂTE 8,18 : PRINT "ETIQUETTE DE L’INSTRUCTION" 
21118 LOCÂTE 168,12 : PRINT "EN COURS D’EXPLORATION" 

21138 D=PEEK(T-1) : E=PEEK(T) : F=PEEK(T+1) 

21135 IF D=6 AND E=6 AND F=8 THEN Fl=-1 : RETURN 

21158 AD=PEEK(T)+256xPEEK(T + 1 ) +AD 

21188 ET=PEEK(T+2)+256xPEEK(T+3) 

21190 LOCÂTE 18,16 : PRINT ET 

212608 T=T+3 

212168 T=T+i : X=PEEK(T) 

21230 IF X=197 THEN T=AD : GOTO 21136 

21258 IF X=34 THEN 21268 ELSE 21298 

21269 T=T+1 : IF PEEK(T)<»>34 THEN 21266 

21296 IF X=140 THEN 213606 ELSE 2134@ 

21366 T=T+1 : X=PEEK(T) 

21316 IF X=0 THEN 21348 

21328 IF X=1 THEN 21210 ELSE 21366 

21348 T=T-(X213 AND X<24)-2x(X=25)-3*x(X>25 AND X<31)-6#CX=31 ) :X=PEEK(T) 
21360 IF X=255 THEN T=T+2 : X=PEEK(T) 

21386 IF X=0 THEN T=T+1 : GOTO 21136 

21396 FL=G : RETURN 

214168 I=I+i : BSCI)=VAS 

21428 FOR J=8 TO I-1 : I=I+(VAS=BS(J)) : NEXT J 


21436 
21518 
21526 
21538 
21546 
22018 
226820 
22036 
22646 
22658 
22668 
23610 
236286 
23830 
23848 
23850 
23066 
24810 
24828 
24630 
24846 
2485û 
24068 
25816 
256828 
25636 
25848 
25858 


VA$="" : RETURN 
VAS=VAS+CHRECX+128xCX2>128)) 

T=T+1 : X=PEEK(T) 

IF PEEK(T-1)<128 THEN 21516 

RETURN 

NUS="ENTIERES" : VAS="" : GOSUB 21168 
IF FL=-1 THEN 28810 


T=T-2#(X=3 OR X=13) : IF X<>2 THEN GOSUB 21216 : GOTO 22628 
T=T+2 : GOSUB 21518 

IF X=48 THEN VAS="" : GOSUB 21236 : GOTO 228260 

GOSUB 21410 : GOSUB 21234 : GOTO 22628 

NUS&="REELLES" : VAS="" : GOSUB 21168 

IF FLl=-1 THEN 28816 

T=T-2%x(X=2 OR X=3) : IF X<>13 THEN GOSUB 21216 : GOTO 23826 
T=T+2 : GOSUB 21516 

IF X=48 THEN VAS="" : GOSUB 21238 : GOTO 23628 

GOSUB 214168 : GOSUB 21236 : GOTO 23626 
NU$&="ALPHANUMERI QUES" : VAS="" : GOSUB 21166@ 

IF Fl=-1 THEN 28616 

T=T-2*x(X=2 OR X=13) : IF X<>3 THEN GOSUB 21216 : GOTO 24628ü 
T=T+2 : GOSUB 21518 

IF X=48 THEN VÂS="" : GOSUB 21236 : GOTO 24826 

GOSUB 21410 : GOSUB 21238 : GOTO 2468264 

NUS&="ENTIERES DIMENSIONNEES" : Vâg="" : GOSUB 21166 

IF FL=-1 THEN 286816 

T=T-2*xCX=3 OR X=13) : IF X<>2 THEN GOSUB 21219 : GOTO 25624 


T=T+2 : GOSUB 215180 


IF X<24@ THEN VAS="" : GOSUB 21230 : GOTO 25626 


25868 
26819 
26828 
26030 
26048@ 
26858 
26860 
27018 
27828 
27638 
27649 
27058 
27068 
28010 
28028 
28636 
28848 
28850 
28868 
28078 
28888 
280784 
281080 
28116 
28128 
27816 
27028 

"3E$ 


GOSUB 21418 : GOSUB 21238 : GOTO 25628 

NUS&="REELLES DIMENSIONNEES" : VA$g="" : GOSUB 21168@ 

IF FL=-1 THEN 28818 

T=T-2*xCX=2 OR X=3) : IF X<>13 THEN GOSUB 21216 : GOTO 26828 
T=T+2 : GOSUB 21518 


IF X<>48 THEN VA$="" : GOSUB 21236 : GOTO 26028 
GOSUB 21410 : GOSUB 21236 : GOTO 266268 
NUS&="ALPHANUMERIQUES DIMENSIONNEES" : VAS="" : GOSUB 211684 


IF FL=-1 THEN 28019 
T=T-2%x(X=2 OR X=13) : IF X<>3 THEN GOSUB 21218 : GOTO 27628 
T=T+2 : GOSUB 21516 


IF X<>48 THEN VAS="" : GOSUB 21238 : GOTO 27626 

GOSUB 21410 : GOSUB 21238 : GOTO 27828 

CLS 

LE" — ! E$="xxxxx" 
FOR K=I+1 TO 25 : B$CK)="" : NEXT K 

LOCATE 8,4 : PRINT "EDITION DES RESULTATS" 

LOCATE 5,19 : PRINT "A L'ECRAN ,...ssssssssess ... E' 

LOCATE 5,14 : PRINT "A L'’IMPRIMANTE + ECRAN .... I" 

LOCATE 5,28 : PRINT "TAPER VOTRE CHOIX LE/I1]" 


R$=INKEYS 

R$S=INKEYS : IF R$="" THEN 28496 ELSE R=ASCCRS) 
IF R=é9 THEN 296816 

IF R=73 THEN 30616 

GOTO 288986 

CLS 


LOCATE 1,1 : PRINT L$ : LOCÂTE 1,2 : PRINT E$;" NOMS DES VARIABLE 


27638 P=INT((C4B-LENCNUS) )/2) 

29848 PRINT TABCP) NUS : PRINT L$ 

25050 IF 1=8 THEN LOCATE 17,12 : PRINT "AUCUNE" : GOTO 29096 
29868 FOR J=i TO I : C+$=B$(J) 

29076 IF Y=3 OR Y=6 THEN C$=C$+"#$" 

29086 PRINT C$ : NEXT J 


CODES ASCII 
PRODUITS PAR LE CLAVIER 


Valeur Valeur 

déci- déci- 

male Touche male Touche 
O CTRL+@ 30 CTRL+! 
1  CTRL+A 31 CTRL+O 
2  CTRL+B 32 ESPACE 
3 CTRL+C 33 ! 
4  CTRL+D 34 
5 CTRL+E 35 # 
6  CTRL+F 36 $ 
7 CTRL+G 37 % 
8 CTRL+H 38 & 
9 TAB ou CTRL+1 39 ” 

10 CTRL+)J 40 ( 

11 CTRL+K 41 ) 

12  CTRL+L 42 

13 ENTER ou CTRL+M 43 + 

14  CTRL+N 44, 

15  CTRL+O 45 - 

16 CLR ou CTRL+P 46 . 

17  CTRL+Q 47 | 

18 CTRL+R 48 O0 

19  CTRL+S 49 1 

20 CTRL+T 50 2 

21 CTRL+U 51 3 

22 CTRL+V 52 4 

23 CTRL+W 53 5 

24  CTRL+X 54 6 

25 CTRL+Y 55 7 

26 CTRL+Z 56 8 

27 CTRL+I 57 9 

28 CTRL+\ 58 : 

29  CTRL+] 59 : 
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Valeur Valeur 


déci- déci- 
male Touche male Touche 
60 < 100 d 
61 = 101 e 
62 > 102 f 
63 ? 103 g 
64 @ 104 h 
65 A 105 i 
66 B 106 j 
67 € 107 k 
68 D 108 | 
69 E 109 m 
70 F 110 n 
71 G 111 o 
72 H 112 p 
73 | 113 q 
74 J 114 ; 
75 K 115 s 
76 L 116 t 
77 M 117 u 
78 N 118 V 
79 O 119 wW 
80 P 120 x 
81 Q 121 y 
82 R 122 Z 
83 S 123 
84 T 124 l 
85 U 125 
86 V 126 CTRL+2 
87 W 127 DELETE 
88 X 128 
89 Y 129 
90 Z 130 
91 [ 131 
92 \ 132 
93 ] 133 
94 | 134 
95 _ 135 
96 ù 136 
97 a 137 
98 b 138 
99 (e 139 
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Touche 
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Valeur 
déci- 
male Touche 


180 
181 

182 

183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 


Valeur Valeur 


déci- déci- 
male Touche male Touche 
220 238 
221 239 
222 240 t 
223 241 l 
224 COPY 242 - 
225 CTRL+TAB 243 = 
226 244 
227 245 
228 246 
229 247 
230 248 CTRL+ | 
231 249 CTRL+ | 
232 250 CTRL+ — 
233 251 CTRL+ — 
234 252 
235 253 
236 254 
237 255 
Remarque 


Certains codes ASCII ne correspondent à aucune touche ou com- 
binaison de touches, ils peuvent avoir des fonctions, par exemple pour 
envoyer des caractères ‘contrôle’ à l'imprimante, et ils ne peuvent 
être créés qu’à l’aide de la fonction CHR$. L'interpréteur ou l’ordre 
POKE peuvent bien sûr créer n'importe quel code ASCII dans les 
mémoires. 
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128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 


TOKENS DE L'AMSTRAD 
DANS L'ORDRE NUMERIQUE 


AFTER 
AUTO 
BORDER 
CALL 
CAT 
CHAIN 
CLEAR 
CLG 
CLOSE IN 
CLOSE OUT 
CLS 
CONT 
DATA 
DEF 
DEFINT 
DEFREAL 
DEFSTR 
DEG 
DELETE 
DIM 
DRAW 
DRAWR 
EDIT 
ELSE 
END 
ENT 
ENV 
ERASE 
ERROR 
EVERY 
FOR 
GOSUB 
GOTO 


161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
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LET 

LINE 

LIST 
LOAD 
LOCATE 
MEMORY 
MERGE 
MID$ 
MODE 
MOVE 
MOVER 
NEXT 
NEW 

ON 

ON BREAK 
ON ERROR GOTO 
ON SQ 
OPENIN 
OPENOUT 
ORIGIN 
OUT 
PAPER 
PEN 

PLOT 
PLOTR 
POKE 
PRINT 


RAD 


194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 


RANDOMIZE 
READ 
RELEASE 
REM 
RENUM 
RESTORE 
RESUME 
RETURN 
RUN 
SAVE 
SOUND 
SPEED 
STOP 
SYMBOL 
TAG 
TAGOFF 
TROFF 
TRON 
WAIT 
WEND 
WHILE 
WIDHT 
WINDOW 
WRITE 
ZONE 
DI 

El 


ERL 
FN 
SPC 
STEP 
SWAP 


TAB 
THEN 
TO 
USING 
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238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
255-0 
255-1 
255-2 
255-3 
255-4 
255-5 
255-6 
255-7 
255-8 
255-9 
255-10 
255-11 
255-12 
255-13 
255-14 
255-15 
255-16 
255-17 
2535-18 
255-19 
255-20 
255-21 
255-22 
255-23 
255-24 
255-25 


LOG 
LOG10 
LOWER$ 
PEEK 
REMAIN 
SGN 
SIN 
SPACE$ 
SQ 

SQR 
STR$ 


2535-26 
255-27 
255-28 
2535-29 
2535-30 
255-31 
255-32 
2535-33 
255-34 
255-35 
255-36 
255-37 
255-38 
255-39 
2535-40 
255-41 
255-42 
255-43 
255-44 
255-45 
255-46 
255-47 
255-48 
255-49 
2535-50 
255-51 
255-52 
255-53 
255-54 
255-55 
255-56 
255-57 
255-58 
255-59 
255-60 
255-61 
255-62 
255-63 
255-64 
255-65 
255-66 
2535-67 
255-68 
255-69 


TAN 
UNT 
UPPER$ 
VAL 


EOF 
ERR 
HIMEM 
INKEY$ 
PI 

RND 
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2535-70 
255-71 
255-72 
255-73 
255-74 
255-75 
255-76 
2535-77 
255-78 
255-79 
255-80 
255-81 
255-82 
255-83 
255-84 
255-85 
255-86 
255-87 
255-88 
255-89 
255-90 
255-91 
255-92 
255-93 
255-94 
255-95 
255-96 
255-97 
255-98 
2535-99 
255-100 
255-101 
255-102 
255-103 
255-104 
255-105 
255-106 
255-107 
255-108 
255-109 
255-110 
255-111 
255-112 
255-113 


TIME 
XPOS 
YPOS 


BIN$ 


255-114 
255-115 
255-116 
255-117 
255-118 
255-119 
255-120 
255-121 
255-122 
255-123 
255-124 
255-125 
255-127 
255-127 


HEX$ 
INSTR 
LEFT$ 
MAX 
MIN 
POS 
RIGHT$ 
ROUND 
STRING$ 
TEST 
TESTR 


VPOS 
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TOKENS DE L'AMSTRAD 


DANS L'ORDRE ALPHABÉTIQUE 


ABS 255-0 ELSE 151 
AFTER 128 END 152 
AND 250 ENT 153 
ASC 255-1 ENV 154 
AUTO 129 EOF 255-64 
BIN$ 255-113 ERASE 155 
BORDER 130 ERL 227 
CALL 131 ERR 255-65 
CAT 132 ERROR 156 
CHAIN 133 EVERY 157 
CHR$ 255-3 EXP 255-7 
CINT 255-4 FIX 255-8 
CLEAR 134 FN 228 
CLG 135 FOR 158 
CLOSEIN 136 FRE 255-9 
CLOSEOUT 137 GOSUB 159 
CLS 138 GOTO 160 
CONT 139 HEX$ 255-115 
COS 255-5 HIMEM 255-66 
CREAL 255-6 IF 161 
DATA 140 INK 162 
DEF 141 INKEY$ 255-67 
DEFINT 142 INP 2535-11 
DEFREAL 143 INPUT 163 
DEFSTR 144 INTR 255-116 
DEG 145 INT 255-12 
DELETE 146 JOY 255-13 
DI 119 KEY 164 
DIM 147 LEFT$ 255-117 
DRAW 148 LEN 255-14 
DRAWR 149 LET 165 
EDIT 150 LINE 166 

El 220 LIST 167 
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LOAD 
LOCATE 
LOG 
LOG10 
LOWERS$ 
MAX 
MEMORY 
MERGE 
MID$ 
MIN 
MOD 
MODE 
MOVE 
MOVER 
NEXT 
NEW 
NOT 

ON 

ON BREAK 
ON ERROR GOTO 
ON SQ 
OPENIN 
OPENOUT 
OR 
ORIGIN 
OUT 
PAPER 
PEEK 
PEN 

PI 

PLOT 
PLOTR 
POKE 
POS 
PRINT 
RAD 
RANDOMIZE 
READ 
RELEASE 
REMAIN 
RENUM 
RESTORE 
RESUME 
RETURN 


168 
169 
255-15 
2535-16 
255-17 
255-118 
170 
171 
172 
255-119 
251 
173 
174 
175 
176 
177 
254 
178 
179 
180 
181 
182 
183 
252 
184 
185 
186 
255-18 
187 
255-68 
188 
189 
190 
255-12 
191 
193 
194 
195 
196 
2535-19 
198 
199 
200 
201 
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RIGHTS 
RND 
ROUND 
RUN 
SAVE 
SGN 
SIN 
SOUND 
SPACES 
SPC 
SPEED 
sQ 

SQR 
STEP 
STOP 
STR$ 
STRINGS$ 
SWAP 
SYMBOL 
TAB 
TAG 
TAGOFF 
TAN 
TEST 
TESTR 
THEN 
TIME 
TO 
TROFF 
TRON 
UNT 
UPPER$ 
USING 
VAL 
VPOS 
WAIT 
WEND 
WHILE 
WIDHT 
WINDOW 
WRITE 
XOR 
XPOS 
YPOS 


255-121 
255-69 
255-122 
202 

203 
255-20 
255-21 
204 
2535-22 
229 

205 
255-23 
2535-24 
230 
206 
255-25 
255-123 
231 

207 

234 
208 

209 
255-26 
255-124 
255-125 
235 
255-70 
236 

210 

211 
255-27 
255-28 
237 
255-29 
255-127 
212 
213 
214 
215 
216 
217 
253 
255-71 
255-72 


218 
238 
240 
241 
242 
243 
244 
245 
246 
247 
248 
192 
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Dès qu'un programme BASIC atteint une certaine 
taille, il se pose le problème de la mise au point et 
de la recherche des erreurs : le ‘’déverminage”. 
Certaines sortes de ‘’déverminage’”" peuvent être 
faites à l'aide de logiciels, par exemple liste des 
variables utilisées, numéro des étiquettes où elles 
apparaissent ; liste des GOTO ou des GOSUB ; 
recherche de la valeur d'une variable... 

Ce livre étudie tout d'abord la manière dont sont 
stockés, dans la mémoire d'un micro-ordinateur, un 
programme BASIC et ses variables associées, puis il 
vous guide pas à pas dans la réalisation d'un logiciel 
de déverminage. || se termine par le listing d'un tel 
logiciel comportant : 


e Recherche des étiquettes où apparaissent des 
ordres BASIC choisis 

e Recherche des variables utilisées dans les 
instructions. 
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